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CHAPTER  I 


INTRODUCTION 


The  general  radar  problem  has,  conventionally,  been  one  of  finding 
the  spatial  location,  or  velocity  or  both,  of  some  target.  This 
information  can  be  extended  to  include  a  knowledge  of  the  target's 
identity,  if  the  operating  frequencies  of  the  radar  are  properly  chosen. 
More  specifically,  if  the  wavelength  of  the  radar  energy  is  comparable 
to  the  maximum  dimension  of  the  target  (i.e.,  in  the  resonance  region), 
then  certain  essential  information,  relating  to  the  target's  dimensions 
and  shape,  will  be  imbedded  in  the  radar  return.  Radars  operating  in 
the  HF  band  (3  to  30  MHz)  have  wavelengths  ranging  from  10  to  100  m; 
hence  missiles,  aircraft  and  ships  are  potential  candidates  for 
resonance  region  target  identification.  Furthermore,  frequencies  in  the 
HF  band  are  capable  of  propagation  over  large  distances  (perhaps  up  to 
4000  km)  and  thus,  with  an  HF  radar  system  we  have,  prima  facie,  the 
potential  for  identifying  ships  and  aircraft,  etc.,  at  very  long  ranges. 


Figure  1.1  shows  a  diagram  of  an  HF  radar  target  classification  system. 


Chen  [1]  studied  the  available  techniques  for  measuring  and 
processing  the  radar  returns  of  targets  in  the  HF  band.  He  concluded 
that  sufficient  si gnal -to-noi se  ratio  could  be  attained  after  processing 
(in  a  reasonable  amount  of  time)  to  permit  target  classification.  He 
developed  algorithms  to  implement  target  classification  and,  in 
conjunction  with  simulated  radar  returns  of  ships  and  aircraft,  stud.ed 
classification  performance  as  a  function  of  post-processed 
si gnal -to-noi se  ratio. 

Chen's  investigations  involved  the  use  of  data  for  ships  and 
aircraft  at  zero  degrees  elevation  angle,  using  vertical  polarization. 
Hence,  for  the  case  of  ships,  the  data  was  representati ve  of 
surface-wave  radar  returns.  HF  radiation  can  also  propagate  by  means  of 
sky-waves,  that  is,  by  ionspheric  refraction,  and  target  classification 
for  this  mode  of  propagation  is  the  subject  of  investigation  in  this 
report.  Classification  at  various  polarizations  and  aspect  angles  are 
also  considered.  Hence,  the  problem  addressed  here  is  one  of  studying 
the  classification  of  ship  targets  in  a  representatively  noisy 
environment,  using  simulated  multiple-frequency ,  multiple-polarization, 
sky-wave  resonance  radar  returns. 

Chapter  II  discusses  the  general  nature  and  limitations  of  the  HF 
sky-wave  radar  system  and  how  these  relate  to  the  measurement  of  phase 
and  amplitude  returns.  Chapter  III  describes  the  generation  of  a  data¬ 
base  of  ship  amplitude  and  phase  returns,  with  particular  reference  to 
problems  incurred  by  the  use  of  a  groundplane  to  simulate  the  surface  of 
the  sea.  Chapter  IV  details  the  classification  algorithms  used  in 
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experiments.  Chapter  V  describes  the  experimental  procedure  and  other 
considerations,  such  as  the  specifications  of  the  noise  model,  which 
relate  to  the  HF  resonance  radar  detection  problem.  Chapter  VI 
summarizes  the  results  of  the  various  classification  experiments  and 
draws  conclusions  from  these  and  other  observations.  Representative 
curves  of  misclassification  percentage  versus  post-processing 
signal -to-noise  ratio  are  included  in  Chapter  VI,  but  the  majority  of 
these  plots  are  appended,  owing  to  their  sheer  bulk.  Chapter  VII 
presents  a  summary  of  the  work,  emphasizing  the  more  important  findings 
of  Chapter  VI,  with  conclusions  and  a  set  of  recommendations  for  future 
work. 
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IONOSPHERE 


Figure  1.1.  Block  diagram  of  target  classification  system.  The  catalog 

A  A 

contains  returns  of  some  preselected  targets  (A,e).  The 
output  of  the  signal  processor  is  a  set  of  amplitude  and 
phase  returns  of  the  unknown  target,  (from  [1]) 


CHAPTER  II 


SKY-WAVE  RESONANCE  RADAR 


2.1  INTRODUCTION 

Resonance  radar  is  a  technique  whereby  characteristic  information 
of  an  object  is  gained  by  illuminating  it  with  electromagnetic  energy  of 
certain  wavelengths.  These  frequencies  are  commonly  called  resonance 
region  frequencies,  and  are  defined  by  the  relation  L/A  *  1,  where  L  is 
the  maximum  dimension  of  the  target  and  A  is  the  wavelength  of  the 
energy  [3,4].  Hence,  resonance  radar  extends  our  knowledge  of  a  target 
beyond  the  conventional  information  concerning  presence,  location  and 
velocity,  and  tells  us  something  of  the  target's  identity. 

The  principle  of  resonance  region  radar  is  applicable  across  the 
entire  electromagnetic  spectrum.  For  example,  ships  and  aircraft  can  be 
interrogated  with  high  frequencies  (HF)  [5,10],  ground  vehicles  with 
very  high  frequencies  (VHF)  [20],  satellites  with  ultra-high  frequencies 
(UHF)  and  insects  with  microwaves.  The  technique  is  applicable  to 
accoustic  environments  so  that  underwater  objects  could  be  investigated 
with  resonant  region  SONAR  sound  waves.  This  report  is  concerned  with 
HF  resonance  region  radar  used  for  the  detection  of  ships. 
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Many  of  the  first  radar  systems  operated  in  the  HF  band  (3-30  MHz). 
This  is  because  microwave  devices,  such  as  the  magnetron,  were  not 
available  at  that  time.  Generally  it  is  more  advantageous,  in  terms  of 
directivity  for  a  given  antenna  size  and  unhampered  propagation  [8],  to 
use  microwave  frequencies  for  radar  detection.  However,  HF  radiation 
has  the  property  of  propagation  beyond  the  line  of  sight  by  either 
surface-waves  or  ionospheric  refraction  (sky-waves).  In  fact,  ship 
detection  has  been  accomplished  using  a  sky-wave  radar  system  under  a 
variety  of  atmospheric  (and  sea  state)  conditions  by  the  Naval  Research 
Laboratory  [9],  Furthermore,  wavelengths  in  the  HF  region  (ranging  from 
10  to  100  m) ,  are  comparable  to  the  dimensions  of  ships,  missiles  and 
aircraft,  and  are  therefore  suited  to  the  resonance  region  techniques 
mentioned  earlier.  Chen  [1]  showed  that  reliable  classification  of 
ships  can  be  achieved  by  processing  representative  resonance  region 
multi -frequency  radar  returns.  Ksienski  and  Lin  [10]  demonstrated 
similar  results  for  aircraft.  This  chapter  summarizes  current 
techniques  for  measuring  and  processing  HF  radar  returns,  and  discusses 
some  of  the  limitations  pertinent  to  sky-wave  propagation. 


2.2  HF  RADAR  SPECIFICATIONS 


Table  2.1  lists  and  compares  the  specifications  of  sky-wave  and 
surface-wave  HF  radar  systems.  The  second  is  characterized  by  a  range 
of  200-400  km.  The  limitation  in  range  (compared  with  sky-wave  radar) 
is  due  to  the  exponential  attenuation  of  surface  waves  [8].  The  work  on 
the  classification  of  ships  and  aircraft  at  an  elevation  angle  of  0 
degrees  [1],  is  applicable  to  a  surface-wave  radar  system.  The  data 
used  in  the  experimental  work  of  this  report  represents  radar  returns  of 
ships  at  elevation  angles  above  0°,  hence,  sky-wave  propagation  and,  in 
particular,  ionospheric  refraction  is  considered  here. 

The  maximum  range  of  a  sky-wave  radar  is  stated  as  4000  km  [9]. 

This  value  applies  to  a  single  skip  (skip  distance  is  the  distance 
between  radar  and  target  after  refraction  from  the  ionosphere)  and  could 
be  obtained  by  using  an  elevation  angle  of  about  8°  and  a  frequency  of 
23  MHz  [9].  In  general,  it  must  be  remembered  that  range  is  a  function 
of  both  the  ionospheric  condition  and  the  propagation  frequency. 

The  antenna  of  a  sky-wave  radar  must  have  a  large  aperture  (about 
1-2  km)  in  order  to  provide  high  gain  and  narrow  azimuthal  beamwidth. 
High  gain  (20  to  30  dB)  is  necessary  to  ensure  adequate  signal  level  in 
the  noisy  HF  environment.  Narrow  azimuthal  beamwidth  is  necessary  for 
high  azimuthal  resolution  and,  in  conjunction  with  range  resolution, 
determines  the  cell  size  of  a  particular  scan.  Range  resolution  is 
limited  by  the  instantaneous  bandwidth,  B,  of  the  ionospheric 
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TABLE  2.1 

SPECIFICATIONS  OF  HF  RADARS  (from  [1]) 


TRANSMITTED  POWER 


Antenna  gain 


Antenna  horizontal 


SKY-WAVE  RADAR 


SEVERAL  HUNDRED  kW 


500  km  to  4000  km 


20  to  30  dB 


about  1  km 


SURFACE-WAVE  RADAR 


HIGHER 


200-400  km 


about  1  km 


Waveform 

can  be  pulsed 

can  be  pulsed 

sinusoidal  waves 

sinusoidal  waves 

Bandwidth 


pulse  width 


Range  resolution 


Doppler  resolution 


5  to  100  kHz 


200  ys  to  10  us 


2  to  40  km 


0.01  to  0.1  Hz 


about  30  Hz 


aircraft,  ships, 
missies 


can  be  wider 


can  be  narrower 


can  be  smaller 


can  be  less 
than  0.1  Hz 


about  300  Hz 


Antenna  Azimuth 

about  1° 

about  1 

beamwidth 

(2.1) 


propagation  path,  and  is  given  by  [8] 

C 

&  =  2b  cos  4> 

where  C  is  the  speed  of  light,  and  4>  is  the  elevation  angle.  For 
example,  if  B  =  100  khz  and  <J>  =  30°,  then  aR  =  1.7  km.  Figure  2.1  shows 
the  effective  cell  size  for  a  particular  range  R.  Azimuth  resolution  is 
given  by  [8] 

*AZ  =  R0B  (2.2) 

where  0b  is  the  azimuth  beamwidth.  Using  a  1°  beamwidth  antenna  at  a 
range  of  2000  km  yields  an  azimuth  resolution  of  35  km.  Hence,  a 
typical  minimum  cell  size  has  an  area  on  the  order  of  60  km2. 

The  work  of  this  report  is  concerned  with  the  identification  of 
single  targets.  It  is  quite  conceivable  that  several  ships  could  amass 
in  a  typical  resolution  cell  and  the  resulting  radar  returns  would  then 
be  a  complex  representation  of  a  number  of  ships.  This  problem  is 
considered  as  too  complicated  for  a  primary  analysis,  and  thus  is  not 
addressed  here. 

Cell  size  also  affects  the  si gnal -to-clutter  ratio  since  a  signal 
in  a  larger  cell  will  inherently  acquire  more  clutter.  Clutter  can  be 
reduced  by  filtering  in  the  doppler  domain,  and  the  resolution 
attainable  in  doppler  frequency  is  inversely  proportional  to  the 
coherent  observation  time. 

The  pulse  repetition  frequency  (PRF)  must  be  kept  low  to  avoid 
range  ambiguities.  Maximum  unambiguous  range  is  given  by  [8] 


C 

Run  =  nr 


(2.3) 


IONOSPHERE 


Figure  2. 


(0)  SIDE  VIEW 


I. 


! 


1.  The  resolution  cell  of  a  sky-wave  radar,  shown  by  the 
shaded  area  (from  [1]).  Note  here  that 

<)>  -  elevation  angle 

t  =  pulse  width 

C  =  speed  of  light 

R  =  wavepath  length 

9g  =  antenna  azimuth  beam  width 


GA  =  Receiver  power  gain 
pr  =  Power  received 
R  =  Range  of  target 
Lp  =  One-way  propagation  loss 
Ls  =  System  loss 


Equation  2.6  shows  that  the  amplitude  return  depends  on  many 
parameters,  some  of  which  are  difficult  to  estimate.  The  propagation 
loss,  Lp,  for  example,  is  dependent  on  the  continually  changing  state  of 
the  ionsphere  for  sky-wave  radar.  To  obviate  the  need  for  such 
estimates,  a  reference  signal  return  of  another  object  close  to  the 
target  is  often  used.  The  radar  cross  section  of  the  reference  target 
is  given  by 


ref  Pref(^)3R4Lp2Ls 

pT  gt  gr  x2  ga 


(2.7) 


The  range  and  propagation  loss  in  equations  2.6  and  2.7  are 
approximately  equal,  and  other  parameters  Pj,  Gy,  GR,  GA  and  Ls  are 
similar  by  virtue  of  the  fact  that  the  reference  and  the  target  are 
illuminated  at  the  same  time  and  are  thus  contained  in  the  same 
resolution  cell.  Radar  cross  section  can  then  be  defined  as 


<*  = 


ref 


(2.8) 
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pr  and  pre^  are  the  received  powers  of  the  target  and  reference  signals 
respectively,  and  are^  is  estimated  from  a  priori  information  or 
theoretical  calculations. 

Trizna  [11]  proposed  a  method  for  calibrating  a  target  cross 
section  by  using  the  sea  scatter  as  a  reference.  Essentially,  the  sea 
surface  behaves  like  a  diffraction  grating  and  the  moving  water  waves 
impart  a  doppler  shift  to  the  incident  electromagnetic  wave.  Figure  2.2 
shows  a  representative  doppler  spectrum  for  a  ship  and  its  reference  sea 
echo.  The  doppler  shifts  depend  upon  the  radial  components  (i.e.,  with 
respect  to  the  direction  of  radar  wave  propagation)  of  the  velocities  of 
the  ship  and  of  the  sea.  The  theoretical  doppler  spectrum  of  wind  waves 
for  a  given  sea  state  can  then  be  computed  using  1st  and  2nd  order  radar 
cross  section  terms  of  the  sea,  in  the  manner  described  by  Maresca  and 
Barnum  [12].  The  calculated  sea  scatter  cross  section,  ac,  at  a  doppler 
shift  of  fr  Hz  is  then  used  in  the  calibration  equation  (Equation  (2.8)) 
to  find  the  calibrated  target  cross  section 

°t  =  °s  "  (°r”°c^  dBrnZ  (2.9) 

Usually  the  reference  return  is  on  the  order  of  20  to  40  dB  greater  than 
the  ship  return.  Typical  figures  taken  from  [11]  give  as  =  40  dBm2,  or 
=  62  dBm2  and  oc  =  51  dBm2  for  a  frequency  of  21.8  MHz,  vertically 
polarized,  at  1600  km  range,  using  a  17  second  integration  time.  The 
resulting  ship  cross  section,  about  30  dBm2  is  typical  of  one  of  the 
smaller  ships  in  the  measured  data  set,  for  an  aspect  angle  of  0°  using 
vertical  polarization.  It  is  also 


DOPPLER  FREQUENCY 


Figure  2.2.  A  doppler  spectrum  is  shown  in  which  a  ship  target  return 
is  separated  from  the  clutter.  The  reference  here  is  the 
larger  first  order  sea  scatter.  The  doppler  frequency 
is  normalized  to  the  1st  order  sea  scatter  doppler 
frequency;  that  is  fr  =  -1  (from  [11]). 


evident  from  Figure  2.2  that  certain  combinations  of  wave  and  ship 
velocity  will  render  the  ship  and  reference  returns  indistinguishable. 
Maresca  and  Barnum  [12]  defined  a  blind  doppler  frequency  as  one  for 
which  ac  >  oj.  -10  dB.  They  concluded  that  for  ships  with  cross  sections 
in  the  order  of  50  dBm2,  there  were  very  few  combinations  of  ship  and 
wave  velocity  that  resulted  in  blind  doppler  frequencies.  For  ships 
with  cross  sections  of  about  30  dBm2,  detection  is  contingent  on  the  sea 
state.  In  general,  the  result  depends  on  the  frequency  used,  and  the 
above  problems  can  be  averted  by  the  use  of  higher  operating  frequencies 
when  available.  Of  course,  it  is  impossible  to  completely  characterize 
a  ship  with  a  single  radar  cross  section.  A  ship's  cross  section 


depends  on  its  size  and  orientation,  as  well  as  the  frequency  and 
polarization  used.  Typical  cross  sections  might  vary  from  20  dBm2  to 
over  70  dBm2  and  consequently  the  magnitude  of  a  ship's  radar  returns, 
for  a  given  orientation,  is  a  characteristic  of  that  target. 

The  above  discussion  pertains  to  the  use  of  sea  scatter  as  a 
reference  in  the  calibration  process.  Sea  scatter  may  not  be  the  only 
reference  available;  for  example,  another  ship  in  the  immediate  vicinity 
with  an  on-board  repeater  might  serve  as  a  reference.  Furthermore,  it 
is  possible  that  the  use  of  V/H  polarization,  discussed  in  Chapter  VI, 
Section  6.5,  might  obviate  the  need  to  use  a  reference  altogether. 

2.4  MEASUREMENT  OF  PHASE  RETURNS 

The  total  phase  shift,  comprising  the  path,  target  and  equipment 
phase  shifts,  can  be  derived  f  oi  '.he  demodulated  received  carrier. 
Taking  the  ratio  of  in-phase  (E^)  and  quadrature  (Eq)  components  yields 


-1  EQ  4ttR 

0  =  tan  Ff  *  T  +  <M  +  <t>e 


(2.10) 


where 

4ttR  =  Wave  path  length  for  a  range  R 
<H  =  Intrinsic  target  phase 
i»e  =  Equipment  phase. 


In  practice,  it  is  difficult  to  accurately  estimate  the  range.  However, 
a  differential  method  [13]  can  be  employed  which  exploits  the  fact  that 


the  total  phase  shift  in  the  Rayleigh  region  is  independent  of  the 
co-polarized  scattering  matrix  terms. 

If  R  =  R0  is  the  nominal  range  in  the  Rayleigh  region,  then  the 
intrinsic  phase  is  given  by 

XQ-XqQq 

♦i  =  — X -  (2.11) 

where  90  is  the  total  phase  shift  for  a  Rayleigh  wavelength  X0. 
Unfortunately,  for  sky-wave  propagation,  R  is  not  equal  to  R0  owing  to 
the  frequency  dependent  path  lengths  through  the  ionosphere. 

Furthermore,  the  Rayleigh  region  return  is  generally  lower  in  amplitude 
than  a  resonance  region  return,  and  may  not  be  measurable.  This  would 
suggest  the  choice  of  subtrahend  wavelength  much  closer  to  the  original 
wavelength  X  to  minimize  the  dependence  of  radar  cross  sections  on  path 
lengths.  This  technique  is  described  in  a  subsequent  chapter. 

In  conclusion,  it  is  difficult  to  recover  the  intrinsic  phase  from 
a  sky-wave  radar  return.  However,  this  does  not  preclude  the  use  of 
phase  data  in  subsequent  experimental  classification  proceedures. 

2.5  CHOICE  OF  FREQUENCIES  IN  SKY-WAVE  RADAR 

There  are  a  number  of  factors  which  influence  the  choice  of 
operating  frequencies  in  sky-wave  resonance  radar.  The  most  important 
of  these  is  the  ionosphere  [9].  The  electron  density  of  this  medium 
varies  with  height  and  with  the  solar  illumination  angle.  Lower 
electron  densities  require  lower  frequencies  for  refraction,  and  vice 
versa.  Consequently,  elevation  angle,  and  hence  range,  is  dependent  on 


the  condition  of  the  ionosphere.  The  ionosphere  is  a  dispersive  medium 
(i.e.,  the  velocity  of  a  wave  is  a  function  of  its  frequency)  and  this 
limits  the  instantaneous  bandwidth  (or  minimum  pulse  width)  and  the 
frequency  sampling  interval.  A  bandwidth  of  100  KHz  which  corresponds 
to  a  pulse  width  of  10  us  is  considered  to  be  the  maximum  signal 
bandwidth  [11], 

Certain  areas  of  the  HF  spectrum  are  subject  to  interference  from 
other  HF  band  signals,  to  deviative  absorption  in  the  ionosphere,  and  to 
natural  forms  of  interference  such  as  auroral  ionization.  This  may 
necessitate  a  choice  of  frequencies  that  avoids  the  bands  where  these 
phenomena  are  prevalent. 

Maresca  and  Barnum  [12]  showed  that  the  sea  state  can  be  a  critical 
factor  in  the  detection  of  small  ships  (those  with  radar  cross  section 
approximately  30  dBm2).  Higher  frequencies  may  be  used  to  avoid  this 
problem  by  increasing  the  doppler  separation  between  the  sea  echo  (or 
Bragg  return),  and  the  ship  return. 

In  addition  to  the  above  limitations,  the  operating  frequencies 
should  be  in  the  resonance  region  of  the  target.  This  is, 
approximately,  the  region  between  1  <  L/X  <  10,  where  L  is  the  maximum 
dimension  of  the  target.  The  6  ships  used  in  the  classification 
experiments  discussed  below  average  about  150  m  in  length.  This  defines 
an  operating  frequency  band  of  2  to  20  MHz.  Furthermore,  lower 
frequencies  are  preferable  because  there  is  a  more  distinct  and  reliable 
variation  of  radar  cross  section  per  unit  bandwidth,  and  this  is  an  aid 
to  classification. 
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The  above  effects  constrain  frequency  selection  and  thus,  the 
choice  of  frequencies  should  be  matched  to  these  continually  changing 
conditions.  It  may  be  necessary  to  sense  the  environment  in  real  time 


to  permit  this  matching 


CHAPTER  III 


GENERATING  A  DATA  BASE 


3.1  INTRODUCTION 

In  order  to  build  a  catalog  of  reference  ship  responses,  a  large 
amount  of  experimental  data  collection  and  processing  using  scaled  model 
ships  is  necessary. 

Firstly,  the  phase  and  amplitude  returns  of  each  model  ship  are 
measured  at  all  frequencies,  polarizations,  aspect  angles  and  elevation 
angles  of  interest.  The  raw  data  are  calibrated  to  remove  unwanted  ; 

background  and  system  response  effects,  and  are  converted  into  absolute  I 

radar  cross  section  magnitude  and  phase.  The  calibrated  data  are  then 
scaled  in  magnitude  and  frequency  so  that  the  responses  are 

representative  of  real  ship  returns  measured  in  the  HF  band.  | 

The  following  discussion  on  calibration  techniques  is  detailed  for  j 

two  reasons.  First  the  calibration  process  is  the  most  critical  and 

I 

intricate  step  in  producing  meaningful  scaled  cross  section  data.  j 

t 

I 

Second,  this  is  the  first  time  that  a  groundplane  has  been  used  in  the  J 

measurement  of  ship  radar  cross  section  data.  ; 

n 

i 


The  entire  calibration  process,  including  the  development  of  software, 
experimentation  and  processing  of  data,  represents  approximately  40%  of 
the  total  work  done  on  this  report. 

3.2  MEASUREMENT  OF  DATA 

The  backscatter  data  of  ships,  calibration  targets  and  backgrounds 
were  measured  using  the  compact  radar  range,  described  by  Walton  and 
Young,  [18],  of  the  ElectroScience  Laboratory  at  the  Ohio  State 
University.  The  term  'backscatter*  is  used  to  describe  radiation  which 
is  scattered  by  the  target  back  in  the  direction  of  the  transmitting 
antenna.  A  12'  x  12*  parabolic  reflector  generates  a  plane  wave  and 
thus  simulates  an  antenna  at  a  much  larger  distance  (hence  the  compact 
feature).  The  radar  transmissions  are  of  the  continuous  wave  (CW)  type, 
possessing  no  modulation.  A  more  detailed  account  of  the  system, 
including  system  specifications,  is  given  by  Kimball  [2].  Figure  3.1 
summarizes  the  key  features  of  the  compact  radar  range  by  means  of  a 
schematic  diagram. 

Measurements  of  the  amplitude  and  phase  of  the  returns  were  made 
monostatically  (i.e.,  transmitting  and  receiving  horns  were  at  the  same 
location  and  orientation).  The  frequency  band  used  was  2-18  GHz 
(continuous),  with  10  MHz  frequency  increments.  The  continuous  band 
avoids  the  need  for  taking  measurements  in  sub-bands,  a  common  practice 
in  the  past,  and  simplifies  the  subsequent  calibration  procedure. 


All  of  the  data  were  taken  prior  to  the  modifications  made  on  the  edge 
of  the  reflector  dish  during  August  1984,  which  were  designed  to  reduce 
edge  diffraction  terms. 

Amplitude  data  were  recorded  in  units  of  dB  cm2,  and  phase  data 
were  registered  in  degrees.  Both  were  recorded  sequentially  onto  a 
PDP-11/23  floppy  disk  (i.e.,  amplitude  at  fj,  phase  at  f^,  amplitude  at 
f2,  phase  at  f2,  etc).  The  PDP-11  computer  served  mainly  to  control  the 
system  and  observe  the  response  as  the  measurements  progressed;  it  was 
used  for  only  limited  processing  at  the  time  the  data  were  taken. 

Table  3.1  shows  a  summary  of  the  of  target  measurements.  These 
sum  to  366  data  files;  however  the  total  files  including  backgrounds  and 
calibration  targets  number  649.  The  average  time  for  the  collection  of 
a  single  file,  including  setting  up  the  target  and  taking  the 
measurements  is  estimated  to  be  15  minutes.  Thus,  at  least  162  hours, 
not  including  re-runs,  were  spent  in  acquiring  the  raw  (measured) 
amplitude  and  phase  returns.  These  data  then  needed  to  be  calibrated 
and  scaled  before  they  were  used  in  classification  experiments. 

Aspect  angle  was  varied  by  rotating  the  ship  about  an  axis 
perpendicular  to  the  centre  of  the  groundplane.  Elevation  angle  was  set 
by  tilting  the  entire  groundplane  to  the  desired  angle.  Three 
polarization  schemes  were  employed: 

1.  Transmit  vertical,  receive  vertical  -  vertical  (V)  polarization 

2.  Transmit  horizontal,  receive  horizontal  -  horizontal  (H) 
pol ari zation 

3.  Transmit  vertical,  receive  horizontal  -  cross  (X)  polarization 


TABLE  3.1 


SUMMARY  OF  TARGET  SPECIFICATIONS 


Elevation  = 

15° 

Elevation  = 

27° 

b 

B 

B 

H 

1  y 

1  X 

Aspect  (degrees) 

Aspect  (degrees) 

0 

0 

0 

0 

0 

0 

10 

10 

10 

10 

10 

10 
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15 
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15 

15 
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170 
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A  polarization  was  selected  by  rotating  the  horns  of  the  transmitting 
and  receiving  antennas  appropriately. 


Figure  3.2  shows  silhouettes  of  the  six  ships  used  in 
classification.  These  models  were  made  from  die-cast  aluminum.  A  ship 
was  attached  to  the  groundplane  by  means  of  a  highly  conductive  silver 
paste. 


3.3  CALIBRATING  THE  DATA 

The  purpose  of  calibrating  frequency  data  is  to  remove  the  imbedded 
system  characteristic.  Kimball  [2]  describes  the  process  in  detail,  and 
it  is  summarized  as  follows. 

1.  Remove  the  range  delay  from  the  measured  data. 

2.  Subtract  backgrounds  from  target  and  calibration  target. 

3.  Remove  invalid  points  from  resulting  subtractions. 

4.  Filter  (in  range)  the  subtracted  files  to  further  reduce 
background  terms. 

5.  Calibrate  the  target  of  interest  according  to  equation  3.1. 

6.  Filter  (in  range)  the  calibrated  data  again  if  necessary. 


The  calibration  equation  is  given  by 


TC  - 


E  (T  -  Bt) 
(S  -  B$) 


(3.1) 


where  ?c,  E,  T,  By,  S,  and  B$  are  complex  phasors  for  each  frequency 
defined  as; 
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Figure  3.2.  Silhouettes  of  the  six  ships  used  in  measurements  and 

classifications,  shown  for  a  scale  of  1:1700  (from  [23]). 


Tc,  the  signal  voltage  measured  with  the  calibration  target 


installed. 

E,  the  computed  (exact)  backscatter  0:  in  units  of  meters 
and  absolute  phase  (deg.),  from  the  calibration  target. 

T,  the  signal  voltage  measured  with  the  target  installed. 

By,  the  signal  voltage  measured  for  the  background  (no  target 
installed)  associated  with  the  target. 

S,  the  signal  voltage  measured  with  the  calibration  target 
installed. 


Bs  the  signal  voltage  measured  for  the  background  (no  target 
installed)  associated  with  the  calibration  target. 


3.3-1  THE  GROUNDPLANE 

For  this  particular  set  of  ship  measurements,  a  large  flat, 
circular  groundplane  (Figure  3.3)  was  used  to  simulate  the  surface  of 
the  sea.  This  approach  is  valid  because  the  a/ we  ratio  for  salt  water 
at  frequencies  in  the  HF  band  is  about  1000,  indicating  that  it  is  a 
good  conductor  [21],  Doppler  processing  is  normally  used  to  separate 
the  ship  return  from  the  ocean  wave  spectrum  [11].  This  allows,  as  a 
first-order  approximation,  the  sea  to  be  represented  as  a  flat  surface 
in  measurements.  (A  discussion  on  scattering  from  rough  surfaces  is 
given  by  [19]). 
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Figure  3.3.  The  groundplane  and  its  low  profile  supporting  structure. 
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Chen  [1],  in  his  analysis  of  ship  classification  at  zero  degrees 
elevation  angle  was  able  to  simulate  the  effect  of  the  surface  of  the 
sea  by  attaching  a  mirror  image  of  the  ship  directly  beneath  the  actual 
target.  This  technique  is  only  applicable  at  zero  degrees  elevation  and 
for  vertical  polarization,  thus  for  the  elevation  angles  of  15°  and  27°, 
a  groundplane  must  be  used. 

The  groundplane  has  a  diameter  of  about  3.4*.  Walton  and  Young  [5] 
found  that  the  transient  response  of  a  scatterer  typically  dies  out 
after  T  =  6t  where  t  =  L/C,  C  is  the  speed  of  light  and  L  is  the  maximum 
target  dimension.  With  a  maximum  ship  length  of  six  inches,  the  impulse 
response  would  be  zero  after  about  3  ns  (one-way).  The  edge  of  the 
groundplane  is  about  1.7n  ns  from  T  =  0  meaning  that,  using  this  rule  of 
thumb,  the  transient  and  groundplane  edge  responses  might  interfere. 
However,  in  the  case  of  the  'low  Q*  ship  targets  considered  here,  the 
transient  response  can  be  shown  to  be  indistinguishable  from  clutter 
after  about  1  ns  (one  way)  for  the  six  inch  targets  (see  Figure  3.4). 
Consequently,  the  ship  response  does  not  interfere  with  the  groundplane 
edge. 

The  term  T  in  Equation  3.1  is  a  combination  of  backscatter  from  the 
ship  and  groundplane,  and  the  term  By  is  the  backscatter  from  the 
groundplane  alone.  Hence,  a  background  (groundplane)  subtraction  should 
yield  the  ship  backscatter.  Unfortunately,  owing  to  target-groundplane 
edge  interactions  and  the  unavoidable  positional  distrubance  of  the 
groundplane  when  the  targets  were  installed  or  moved,  some  residual 
response  remains  at  the  location  of  the  groundplane  edges  after  the 


subtraction  and  calibration.  Sometimes  this  residual  can  have  a  peak 
magnitude  similar  to  that  of  the  ship  (see  Figure  3.4).  Time  domain 
windowing  is  necessary  to  remove  these  residuals  as  they  represent  a 
distortion  of  the  desired  ship  data,  and  would  be  particularly 
disruptive  in  the  time  domain  algorithm  discussed  later.  Although 
smoothing,  that  is,  convolution  in  the  frequency  domain  with  a  Hanning 
window,  (see  Kimball  [2]),  which  is  equivalent  to  time  domain  windowing, 
is  performed  in  the  scaling  routine,  it  is  desirable  to  remove 
residuals  before  this  stage  is  reached.  The  main  reason  for  this  is 
that  existing  software  formatted  the  scaled  data  in  such  a  way  as  to  be 
incompatible  with  available  fast  Fourier  transform  programs.  Hence,  if 
the  data  was  smoothed  in  the  scaling  routine  to  remove  residuals,  there 
would  be  no  way  (without  extensive  alterations  to  software)  of 
performing  an  inverse  Fourier  transform  to  check  the  result. 

Initially,  it  was  thought  that  the  residuals  could  be  removed  by 
using  a  sufficiently  narrow  window  (or  large  number  of  smoothing  points) 
in  step  4  of  the  calibration  process  described  earlier.  To  see  how  this 
would  work,  consider  the  Impulse  reponse  of  a  typical  target -on- 
groundplane  shown  in  Figure  3.5.  The  purpose  of  the  Hanning  window 
outlined  over  the  target  area  is  to  window  out  the  effect  of  the  antenna 
coupling  and  reflector  terms.  If  made  sufficiently  narrow,  the  window 
might  also  remove  the  groundplane  residuals.  This  was  tried  by  setting 
the  first  null  points  of  the  window  to  ±  3  ns;  the  points  in  time 
corresponding  to  the  groundplane  residuals.  The  residuals  were  removed 
successfully,  but  another  problem  was  spawned  in  doing  so,  owing  to 
receiver  hardware  problems. 
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The  receiver  used  in  the  measurement  process  had  band  edges  located 
at  2,  4,  8,  12.4  and  18  GHz.  These  band  edges  caused  a  step  type 
pattern  in  the  phase  response  (shown  in  Figure  3.6  for  a  raw  6"  sphere 
data  file  with  range  delay  removed).  Narrow  windowing,  or  convolution 
over  a  large  number  of  frequencies  (as  the  smoothing  is  actually 
performed),  emphasized  these  steps  differently  for  both  the  calibration 
target  and  the  target  of  interest.  The  net  result  after  calibration 
was  a  series  of  spikes  of  up  to  10  dBm2  in  magnitude,  located  at  or  near 
the  receiver  band  edge  frequencies.  Clearly  then,  narrow 
pre-calibration  smoothing  was  not  practical. 

The  edge  residuals  must  then  be  removed  in  step  6  of  the 
calibration  process.  The  existing  calibration  software,  (CAL  53  due  to 
Kimball)  achieved  this  by  convolution  in  the  frequency  domain.  This 
program  was  upgraded  to  permit  the  windowing  to  be  done  in  the  time 
domain,  for  two  reasons. 

1.  The  process  is  computationally  more  efficeint. 

2.  The  process  is  conceptually  more  relevant  to  the  problem, 
i.e.,  the  groundplane  edges  are  recognizable  as  time  domain 
phenomena,  so  it  is  logical  to  deal  with  them  in  the  time 
domain. 

Computational  efficiency  is  a  function  of  the  number  of 
frequencies,  or  data  points.  A  fast  Fourier  transform  requires  N  log2  N 
operations,  while  a  convolution  requires  NM  operations,  where  N  is  the 
total  number  of  data  points  and  M  is  the  size  of  the  convolution  window 
(in  data  points).  However,  for  time  domain  windowing,  both  forward  and 


inverse  transforms  as  well  as  a  multiplication  over  the  number  of  data 
points  in  the  time  domain  array  (4096  in  this  case),  which  represents 
the  actual  windowing,  are  necessary.  The  total  number  of  operations  for 
the  time  and  frequency  domain  smoothing  routines  are  given  by 

Nt  -  2N  log2  N  +  4096  (3.2) 

Nf  -  NM  (3.3) 

A  total  of  1601  data  points  (sample  frequencies)  were  used,  with  a  ±  3ns 
window  in  the  time  domain  corresponding  to  a  65  point  convolution 
window.  Substituting  these  values  in  3.2  and  3.3  yields  38180 
operations  required  for  time  domain  windowing  and  104065  operations  for 
frequency  convolution.  Setting  the  first  null  points  of  the  Hanning 
window  to  ±  3ns  removed  the  residuals  completely  (see  Figure  3.8).  For 
the  largest  target,  most  of  the  response  was  confined  to  ±  0.5  ns  with 
the  transient  decaying  into  clutter  at  1.5  ns  (1.5  ns  is  the  6  dB  down 
point  of  the  Hanning  window).  However,  close  examination  of  a  six  inch 
ship  response  with  the  narrow  ±  3  ns  window  revealed  no  discernable 
difference  from  the  same  response  processed  with  a  much  wider  t  20  ns 
window. 

There  is  a  consequence  of  using  the  time  domain  technique  which 
should  be  noted.  Figure  3.9  shows  the  resultant  frequency  response 
after  a  perfectly  flat  2-18  GHz  frequency  response  (phase=0°)  is  inverse 
Fourier  transformed,  windowed  with  a  ±  3  ns  window,  and  then  forward 
transformed.  The  first  and  last  0.3  GHz  of  the  band  are  unuseable  owing 
to  the  drop  off  caused  by  a  narrow  time  window.  This  problem  is 
somewhat  precluded  with  the  use  of  frequency  domain  convolution  since 


PHRSE  IN  DEGREES 


I 

the  frequencies  near  the  band  edges  are  refelcted  to  permit  the 
convolution,  showing  convolution  and  time  domain  gating,  as  implemented 
in  our  software,  not  to  be  exact  transform  pairs.  However,  the  validity 
of  data  taken  immediately  adjacent  to  band  edges  is  not  certain,  so  it 
is  good  policy  to  ignore  these  regions  irrespective  of  the  technique 
used  to  perform  the  smoothing  or  windowing. 

3.3-2  CHECKING  CALIBRATED  RESPONSES 

Once  a  particular  ship  had  been  calibrated,  its  frequency  and 
impulse  response  were  then  generated  as  plots.  The  frequency  responses 
were  examined  for  'glitches',  i.e.,  large  spikes  of  about  10-100  MHz 
bandwidth  and  10  to  30  dB  in  extent,  caused  by  receiver  hardware 
problems.  Generally  a  glitch  is  hard  to  deal  with  because  the  phase  and 
amplitude  responses  affect  up  to  10  points.  If  the  glitch  exists  in  a 
background  or  calibration  target  file  then  an  alternative  data  file 
might  be  used.  A  bad  glitch  in  a  ship  data  file  might  require  a  new  set 
of  measurements.  Small  glitches,  both  in  amplitude  and  bandwidth,  at 
frequencies  lower  than  4  GHz  can  be  tolerated. 

The  time  response  was  the  main  tool  for  checking  the  validity  of 
calibrations  because  the  transient  response  gives  an  intuitive  geometric 
guide  to  the  mechanisms  which  cause  scattering.  Figure  3.9  shows  a 
typical  response,  scaled  1  to  1  with  the  ship  overlaid.  Using  templates 
in  this  way  shows  whether  the  main  response  confines  itself  to  the 
length  of  the  ship,  and  if  structures  likely  to  cause  large  amounts 
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Figure  3.9.  Resultant  frequency  response  when  a  flat  2  to  18  GHz 

frequency  response  is  windowed  in  the  time  domain  with  a 
t  3  ns  Hanning  window. 
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of  scattering  are  indeed  doing  so.  The  bandwidth  of  the  responses  is 


sufficiently  large  to  provide  the  necessary  resolution  to  make  these 


judgements.  Resolution  in  time  is  given  by 


t  ■  1/B 


(3.4) 


For  B  =  16  GHz,  then  t  =  62.5  p  seconds,  which  at  the  speed  of  light 


corresponds  to  1.875  cm.  Most  of  the  major  features  on  the  ship  models. 


such  as  masts,  gun  turrets,  etc.,  are  separated  by  about  1  to  2  cm. 


There  was  not  always  a  1:1  relationship  between  the  physical  features  of 


a  ship  and  its  time  response;  partly  owing  to  the  resolution  limit  and 


partly  because  of  the  complex  scattering  interactions  and  interferences. 


Certain  aspect  angles,  particularly  those  close  to  90°  were  harder  to 


judge  than  others.  No  standard  procedure  could  be  developed  under 


which  to  judge  a  calibrated  result,  although  the  presence  of  significant 


precursors  or  other  unusual  phenomena  would  tend  to  indicate  a  bad 


cal ibration. 


An  alternative  method  for  judging  the  validity  of  the  calibration. 


based  on  comparing  a  measured  hemisphere-on-a-groundplane  with  its 


theoretical  counterpart,  was  found  to  be  unsatisfactory.  The  measured 


and  theoretical  responses  were  too  disimilar  to  be  meaningful.  Much 


work  was  done  in  the  pursuit  of  finding  the  mechanism  responsible  for 


the  differences.  However,  no  conclusive  evidence  was  found  and  this 


particular  technique  was  dropped  in  favour  of  the  time  domain  method. 


“V: 


SKEW 


3.4  DATA  SCALING 


Data  collected  and  calibrated  in  the  microwave  region  must  be 
scaled  before  being  used  in  classification  algorithms.  A  data  point  is 
scaled  in  two  ways.  Firstly,  its  amplitude  is  multiplied  by  the  scale 
factor,  and  secondly,  the  frequency  it  represents  is  divided  by  the 
scale  factor.  Data  measured  in  the  2  to  18  GHz  microwave  band  was 
collected  for  models  having  scale  factors  of  1:1200  and  1:2400.  The 
resulting  HF  bands  are  shown  in  Table  3.2. 


TABLE  3.2 

SCALE  FACTORS  FOR  MODEL  SHIPS  AND  ASSOCIATED  FREQUENCY  BANDS 

Scale  Factor  1:1200  1:2400 

fmin  1.667  MHz  0.833  MHz 

fmax  15  MHz  7.5  MHz 
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The  figures  presented  above  were  rounded  to  one  decimal  place,  and 
a  frequency  increment  was  selected.  Since  frequencies  may  have  been 
selected  which  were  not  actually  represented  by  data  points,  it  was 
necessary  to  interpolate  between  data  points  by  means  of  a  Hamming 
window  .  Chen  [1]  also  used  a  Hamming  window  to  remove  noise  and 
clutter  from  the  calibrated  data.  As  explained  earlier,  it  was 
necessary  to  perform  smoothing  during  the  calibration  process. 

A  frequency  increment  of  1/32  MHz  was  selected  for  each  band. 

Window  widths  of  0.5  MHz  and  0.25  MHz  were  selected  for  the  1.7  to  15 
MHz  band  and  0.8  to  7.5  MHz  band  respectively.  The  shape  of  the  scaled 
data  curves  differed  little  from  the  calibrated  data  curves.  This  is  to 
be  expected  as  the  window  to  bandwidth  ratios  for  each  are  1:27  and  1:25 
respectively.  Respresentati ve  scaled  frequency  and  phase  returns  are 
shown  in  Appendix  B. 

The  useable  bandwidth  for  classificaiton  must  overlap  both  scaled 
bands;  this  is  1.7  to  7.5  MHz.  For  reasons  mentioned  in  the  discussion 
of  the  calibration  proceedure,  frequencies  near  the  band  edges  are 
avoided,  so  the  net  useable  bandwidth  is  about  2  to  7  MHz. 
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A  SUMMARY  OF  SCALED  DATA  GENERATION 


1.  Measured  Data  (m)  j 

1 


Amplitudes 

Phases 

(at)  frequencies 


fm  :  2-18  GHz,  10  MHz  steps 

=  1601  data  points 


2.  Calibrated  Data  (c) 


Ac 

0C 

fc  :  2-18  GHz,  10  MHz  steps 


Smoothing  t  3  ns  (first  nulls)  Hanning  window 

equivalent  to  65  point  smoothing, 
gives  a  1:25  window  to  bandwidth 
ratio. 


3.  Scaled  Data  (s) 


As  =  Ac  SF 

9S  =  0C  (SF  =  Scale  Factor) 

fs  =  fs/SF 


SF  =  1:1200 


1.7  -  15  MHz,  1/32  MHz  steps 
426  data  points 

Interpolation  using  0.5  MHz  Hamming  window 


SF  =  1:2400 


0.8  -  7.5  MHz,  1/32  MHz  steps 
214  data  points. 

Interpolation  using  0.25  MHz  Hamming  window 


Net  useable  common  bandwidth  :  2  -  7  MHz. 


I 
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CHAPTER  IV 


TARGET  CLASSIFICATION 

4.1  INTRODUCTION 

The  basic  process  of  target  classification  is  illustrated  in  Figure 
4.1.  The  measurement  system  in  this  case  is  a  compact  radar  range.  It 
produces  a  measurement  vector  m,  which  is  a  set  of  amplitudes  and  phases 
at  a  number  of  frequencies,  aspect  angles,  elevation  angles,  and 
polarizations.  Each  measurement  vector  is  a  point  in  M-dimensional 
space  (also  called  the  observation  space).  The  feature  extractor 
reduces  the  dimensionality  of  the  measurement  vector  to  produce  a 
feature  vector  n,  which  is  a  point  in  N-dimensional  space  (M>N).  For 
example,  if  the  amplitudes  and  phase  returns  of  a  ship  were  measured  at 

2  polarizations,  2  elevation  angles,  3  aspect  angles  and  4  frequencies, 
and  it  is  assumed  polarization  and  elevation  are  known  and  only 
amplitudes  are  used  to  classify  the  target,  then  the  feature  extractor 
reduces  a  96-dimensional  space  to  12-dimensional  space  (4  frequencies  x 

3  aspect  angles).  Essentially,  the  feature  extractor  is 


MEASUREMENT  FEATURE  _  OBJECT  _ _ 

SYSTEM  EXTRACTOR  CLASSIFIER  DECISION 

MEASUREMENT  FEATURE 

VECTOR  VECTOR 

m  n 

Figure  4.1.  Basic  process  of  a  pattern  classification  system. 

the  mechanism  by  which  a  particular  data  file  is  addressed,  since  a 
measurement  vector  is  usually  dispersed  amongst  several  data  files. 

The  feature  vector  is  then  passed  to  the  object  classifier  which 
uses  a  particular  algorithm  to  make  a  decision  as  to  the  identity  of  the 
object.  The  decision  can  be  either,  1)  the  object  is  classified  as  a 
known  member  of  a  catalog  or,  ?.)  the  object  belongs  to  some  other 
'uncatalogued'  class.  The  classification  of  catalogued  and  uncatalogued 
classes  is  discussed  by  Lin  [6].  For  this  particular  application,  only 
catalogued  classification  is  considered. 

The  ultimate  goal  of  a  classification  system  is  to  identify  targets 
with  a  minimum  probability  of  error.  Since  the  noise  in  these  tests  was 
simulated,  the  classification  could  have  been  a  parametric  proceedure. 
However,  in  practice,  the  exact  probability  distributions  of  features  in 


the  feature  space  after  contamination  by  noise  are  not  known,  thus  we 
must  resort  to  non-parametric  methods  of  classification.  Two  such 
methods  which  do  not  require  knowledge  of  probabilistic  information  are 
the  nearest  neighbour  algorithm  [1]  and  the  time  domain  correlation 
algorithm  [1],  and  are  discussed  below. 

4.2  CLASSIFICATION  IN  THE  FREQUENCY  DOMAIN 


The  nearest  neighbour  (NN)  algorithm  uses  amplitude  and  phase 

returns  measured  at  a  series  of  frequencies  f  =  fj,  f2,  .  ffl. 

(Note  that, in  general,  the  NN  algorithm  is  applicable  to  both  the 
frequency  and  the  time  domain.)  The  amplitude  is  defined  as  the  square 
root  of  the  measured  target  cross  section.  For  sky-wave  radars,  it  is 
difficult  to  recover  the  intrinsic  phase  of  a  target,  because  of  the 
dispersive  and  variable  nature  of  the  ionosphere  and  because  the  wave 
path  lengths  are  difficult  to  estimate  accurately.  Hence  a  measurement 
of  both  the  actual  (intrinsic)  phase,  or  relative  phase  may  contain 
unacceptab'e  errors.  To  circumvent  these  difficulties,  the  differential 
quantity  W  is  used  and  is  defined  as: 


W. 

i 


0.X.  -  9.  ,  X.  . 
1  1  1+1  1+1 


(4.1) 


where 

0-j  is  the  measured  phase  at  X  *  Xj, 

Ri  is  the  Wave  path  length  at  X  =  X^ ,  and 
i  =  1,  .  .  .  N  -  1  (where  N  =  Number  of  frequencies). 
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Equation  (4.1)  assumes  that  R^  and  and  Rj+i  differ  by  a  small  amount. 
This  is  true  for  sky-wave  radars  only  when  X^  and  differ  by  a  small 
amount  and  the  radar  operating  frequencies  are  chosen  carefully. 

A  feature  space  for  a  given  orientation  and  polarization  can  be 
defined  as, 

(Aj,  Ag,  .  •  •  •  ,  A^,  KWj,  KW^ ,  •  .  •  •  ,  KW^ 

where 

N  is  the  number  of  frequencies. 

K  is  a  normalization  constant  relating  the  variances  of  A  and  W. 


K  = 


VAR (A) 

0  VAR(W) 


(4.2) 


VAR(A) 

3  =  VAR(KW)  •  (4.3) 

The  parameter  H  is  a  variable  ranging  from  0  to  «  and  its  value  depends 
on  the  reliability  of  amplitude  and  phase  information. 

3  =  »  corresponds  to  using  amplitudes  only 

0=0  corresponds  to  using  differential  phase  only 

0=1  corresponds  to  the  use  of  amplitudes  and  phases  with 
equal  weighting  in  the  respective  variances. 

In  practical  use  of  the  algorithm,  the  stated  limits  of  0  (i.e.,  0 


and  «)  are  not  substituted  into  Equation  4.2  in  order  to  select  either 
the  ampl itudes-only  feature  or  di fferential -phases-only  feature  from  the 


feature  space;  these  features  are  selected  directly  and  are  independent 
of  K.  It  is  worth  mentioning  that  a  value  of  6  =  0.01  gives 
classification  results  virtually  indistinguishable  from  the 
differential-phases-only  feature,  and  8  =  100  does  the  same  for  the 
amplitudes-only  feature.  K  is  calculated  only  when  both  amplitudes  and 
phases  are  used,  and  for  all  of  the  experiments  done  here,  8  was  set 
to  1. 

Let  At  (fj),  9^  (^i )  be  the  target  amplitude  and  phase  returns, 
where  i  =  1,  2,  ...  N.  Let  Aj  (f-j),  9j  (f^)  be  the  data  base  amplitude 
and  phase  returns,  where  j  is  the  target  index,  j  =  1,  2,  ...  M.  The  NN 
algorithm  is  as  follows: 

1.  Compute  the  differential  phases 
Wj1  »  A1  Gt  (fj)  -  Xi+1  0t  (fj+j) 

Wij  =  0j  (fi)  -  xi+1  0j  (fi+1) 

i  =  1,  2,  ...  N-l 
j  ■  1,  2,  ...  M 

2.  Calculate  the  sample  averages  of  A  and  W  in  the  data  base. 

1  M  N  ,  % 

Avg(A)  =  m  y  l  Aj  (fi)  =  A 

j=l  i=l 

1  M  N-l  i 
Avg(W)  =  ffpriT  7  T  WiJ  =  w 
j=l  1=1 


3.  Calculate  the  sample  variances  of  A  and  W  in  the  database 


1  M  N  ,  ,  %  -? 

Var  (A)  =  m  l  y  (Aj  (fi)  -  A)‘ 

j=l  i=l 

Var  (W)  \  l  (WiJ  -  W)* 

j=l  i=l 


5.  Compute  the  distance  between  the  target  and  each  class  in  the 
data  base. 


j  s  If  2f  . . #  f  M. 

6.  Apply  the  nearest  neighbour  rule: 

Choose  smallest  d^j  j  =  1,  2,  ....M. 

If  dt>m  =  min  (dtj)  classify  the  target  (t)  as  m. 

4.3  CLASSIFICATION  IN  THE  TIME  DOMAIN 

The  inverse  Fourier  transform  of  the  frequency  and  phase  responses 
mentioned  in  the  previous  section  yields  the  impulse  response  of  the 
target.  This  is  the  time-dependent  field  intensity  produced  when  a 
plane  electromagnetic  wave  washes  over  the  object. 


In  the  frequency  domain,  differential  phase  was  used  to  reduce  the 
phase  error  introduced  when  the  path  length  varies.  This  error 
manifests  itself  as  a  time  shift  in  the  canonical  time  domain,  and  is 
removable  by  means  of  a  correlation  process.  (Note  that  the  correlation 
process  is  applicable  to  both  the  time  and  the  frequency  domain).  Chen 
[1]  discussed  the  correlation  process;  a  summary  of  its  implementation 
is  given  below. 

1.  Compute  the  correlation  function. 

Pt.r  00  =  DIPT  [X(m)  Y*(m)] 

~ 2  HR  2 

2  \  l  |X(m)  |  V  l  | Y(m)  | 

v  m=l  v  m=l 

where 

X(m)  *  ( f k ) e J 9t ( )  t  =  target  index 

Y(m)  -  Ar(fic)ej9r(f|c)  r  *  catalog  index 

k  =  1,  2,  ...,  M 
M  =  Number  of  frequencies 

m  =  fi/Af,  f2/Af . fM/Af 

Af  =  fi  -  fi _!  i  =  1,  2,  ...,  M 

and  DIFT  is  the  Discrete  Inverse  Fourier  Transform  of  the 
frequency  domain  data  (X(m)  Y*(m)).  Y*  is  the  complex 
conjugate  of  Y. 

2,  Choose  the  time  shift  constant  k  such  that  p(k)  is  maximized. 

max 

For  a  particular  set  of  two  targets  this  yields  Pt,r» 
r  »  1,  ...,  N,  where  N  =  number  of  catalog  members. 
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3.  Choose  the  largest  Pt,r*  If  Pt,q  =  Max  (pt,r)»  classify  the 
target  (t)  as  q. 

The  DIPT  will  work  with  as  few  as  2  frequencies,  however,  this  low 
number  of  frequency  samples  is  insufficient  to  provide  any  useable 
resolution.  Recall  that  the  cross  section  data,  as  originally  measured, 
were  sampled  at  1601  frequencies  from  2  to  18  GHz  with  a  10  MHz 
interval.  This  amount  of  sampling  provided  the  necessary  resolution  to 
distinguish  between  individual  scattering  centers  on  the  target  (which 
allowed  the  calibrations  to  be  checked).  A  much  lower  number  of  samples 
still  provides  scattering  information  of  the  target,  but  relates  more 
to  the  overall  dimensions  rather  than  individual  structures. 


4.4  RELATIVE  AMPLITUDE  FEATURE 


The  relative  amplitude  feature  was  developed  to  reduce  the  effects 
of  a  possible  multiplicative  bias  in  the  amplitude  data.  It  is  defined 
as  follows: 


Si  =  A-j/A-j+j  ;  i  =1,  2,  *..,  N-l. 


Such  a  bias  might  be  due  to  an  error  in  estimating  the  sea  state,  which 
would  cause  a  local  shift  of  amplitudes  in  the  frequency  response.  The 
relative  amplitude  feature  was  not  designed  to  remove  the  complex 
multiplicative  terms  impressed  by  the  ionosphere. 


CHAPTER  V 


EXPERIMENTAL  CONSIDERATIONS 

5.1  INTRODUCTION 

Figure  5.1  summarizes  the  experimental  classification  procedure  in 
the  form  of  a  flow  chart.  Data  for  M  ships  at  a  total  of  N  frequencies 
are  contained  in  the  data  base.  The  data  base  is  a  directory  of  366 
scaled  data  files,  each  corresponding  to  a  ship  at  a  particular  aspect 
angle,  elevation  angle  and  polarization.  Amplitudes  and  phases  at  the 
desired  frequencies,  aspect  and  elevation  angles,  and  polarizations  are 
selected  for  each  ship  in  the  data  base  to  form  a  catalog  (this  is 
equivalent  to  feature  extraction,  see  Chapter  IV,  Section  4.1).  This 
selection,  in  a  practical  situation,  would  be  based  on  all  of  the  a 
priori  information  pertaining  to  the  unknown  target.  Gaussian  noise  is 
then  added  to  the  entire  catalog  to  produce  a  set  of  test  targets. 
Classification  proceeds  for  each  noisy  test  target  and  decision 
statistics  are  compiled.  It  is  worth  emphasizing  that  in  the  following 
experiments,  the  whole  catalog  of  ship  amplitude  and  phase  returns  is 
corrupted  by  noise  and  classification  proceeds  for  each  ship  target  in 
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that  'noisy  catalog'.  At  this  point  there  are  two  catalogs;  one  a 
noise-contaminated  version  of  the  other.  The  returns  of  the  first  noisy 
ship  are  compared  (by  some  algorithm)  with  those  of  the  M  noise-free 
ships,  and  a  decision  is  made  as  to  the  identity  of  the  test  target. 
Since  we  added  the  noise  to  the  test  target,  we  know  its  identity  a 
priori,  and  can  therefore  determine  if  the  classification  was  either 
correct  or  incorrect.  We  say  a  target  has  been  identified  correctly  if 
we  choose  the  right  ship  at  the  right  aspect  and  elevation  angle.  A 
target  is  misclassified  if  we  choose  either  the  wrong  ship,  or  the  right 
ship  at  the  wrong  elevation  or  aspect  angle.  This  decision  process  is 
justified  on  the  basis  that  we  are  investigating  the  classification 
properties  of  parameters,  such  as  aspect  angle,  polarization  etc., 
rather  than  the  classification  properties  of  individual  ships. 

The  process  is  then  repeated  for  subsequent  members  of  the  noisy 
catalog  until  all  M  noise-contaminated  test  targets  have  been 
classified.  The  number  of  misclassifications  is  recorded  for  the 
particular  level  of  injected  noise  power.  Hence  the  statistics  of  the 
experiments  apply  to  the  collection  of  ships  as  a  whole  and 
classification  properties  between  individual  ships,  although  of 
interest,  are  not  investigated  here. 

The  experiment  is  repeated  a  number  of  times  in  order  to  compile 
meaningful  statistics,  or  representative  curves  (see  below).  The  entire 
process  is  then  repeated  for  a  different  injected  noise  power  so  that 
curves  of  misclassification  percentage  versus  post-processing  SNR  can  be 
drawn.  The  software  needed  to  perform  this  process  is  listed  with 
comments  in  Appendix  C. 


5.2  CHOICE  OF  EXPERIMENTAL  FREQUENCIES 


iV. 


The  discussion  in  Chapter  III  concluded  with  a  summary  of  the 
data-base  generation  procedure,  which  showed  that  our  data  has  a  useable 
band  of  2-7  MHz.  An  important  concern  here  is  that  the  classification 
frequencies  should  be  in  the  lower  part  of  the  resonance  region,  i.e., 
close  to  L/X  =  1,  where  L  is  the  maximum  dimension  of  the  dominant 
scattering  structures  of  the  target.  The  increment  between  sample 
frequencies  is  also  an  important  parameter. 

The  experimental  time  domain  ramp  response  in  our  ship  data  base, 
as  previously  mentioned,  has  a  duration  of  less  than  6  transit  times 
across  a  target  of  length  L,  i.e.. 


R(t,t0)  =0;  t0  >  t  >  t0  +  6L/C 


where  C  is  the  speed  of  light  and  t0  is  a  time  reference.  (This  is  a 
worst-case  rule  of  thumb;  there  are  many  exceptions,  including  the  case 
at  hand.)  For  the  preceeding  time  limited  expression.  Shannon's 
sampling  theorem  [22]  requires  that  the  frequency  sampling  interval 
should  satisfy 


Af  <  C/6L  . 


The  ships  dimensions  are  in  the  order  of  100  m,  implying 


Af  <  0.5  MHz. 


Thus,  Af  =  0.4  MHz  was  selected  as  the  frequency  increment.  The 
corresponding  selection  of  frequencies  is  given  in  Table  5.1. 


(5.1) 
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TABLE  5.1 


RANGE  OF  FREQUENCIES  USED  IN  EXPERIMENTS 

N  =  2  2.0  MHz  <  f  <  2.4  MHz 
N  =  4  2.0  MHz  <  f  <  3.2  MHz 
N  =  8  2.0  MHz  <  f  <  4.8  MHz 
N  =  12  2.0  MHz  <  f  <  6.4  MHz 


■ 

rags 


i  *r_ » 

•V  .* 


Note  that  2.0  MHz  corresponds  to  a  wavelength  of  150  m,  and  4.8  MHz  (N  = 
8  frequencies  was  the  most  commonly  used  number)  corresponds  to  a 
wavelength  of  62.5  m.  Hence,  with  0.7  <  L/X  <  1.6,  the  lower  resonance 
region  criterion  is  satisfied. 

5.3  SELECTION  OF  ft  IN  NEAREST  NEIGHBOUR  ALGORITHM 


As  discussed  earlier,  the  selection  of  3  is  relevant  only  for  the 
case  where  both  amplitudes  and  (differential)  phases  are  used  in  the 
nearest  neighbour  algorithm,  3=1  corresponds  to  using  amplitudes  and 
phases  with  equal  weighting  in  variance.  Classification  with  3  at  some 
intermediate  value  represents  a  weighting  towards  either  feature 
depending  upon  the  reliability  of  that  features'  measurement.  Chen  [1] 
acknowledged  that  his  estimate  for  K  was  not  optimal. 

/  VAR(A) 

K  =  J  3  VAR(W) 
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(5.2) 
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An  optimal  expression  for  K,  in  addition  to  a  carefully  selected  value 
of  8  might  provide  an  optimal  use  of  the  AW  feature.  This  possibility 
is  not  explored  in  this  work,  but  is  discussed  in  the  conclusion. 

5.4  NOISE  MODEL 

Before  discussing  the  specific  characteristics  of  the  noise  model, 
it  is  appropriate  to  define  exactly  what  is  meant  by  noise  and  signal-to 
noise-ratio. 

Figure  5.2  summarizes  the  various  channel  and  processing  stages  in 
a  radar  system.  Assume  that,  immediately  after  the  incident  radar  wave 
impinges  on  a  target,  a  radar  cross  section  is  generated,  where  at 

comprises  the  ship  return  as  and  sea  echo  ar.  If  it  were  possible  to  be 
exactly  adjacent  to  the  target  at  this  point  in  time,  we  could  measure, 
with  a  hypothetically  perfect  system,  the  exact  values  of  os  and  ar. 
Knowing  the  exact  state  of  the  sea  would  allow  us  to  compute  aexact 
precisely  from  a  perfect  theoretical  model  of  the  sea  scattering 
process.  The  (exact)  radar  cross  section  of  the  ship  would  then  be 
given  by 


0* 
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.  °s 

°ship  “  —  <*exact  (5.3) 

°r 

This,  of  course,  is  not  the  case  and  the  initial  radar  cross  section  at 
is  corrupted  by  the  ionosphere  and  various  stages  of  signal  processing. 
After  doppler  filtering,  the  resultant  radar  cross  section  a^"  is 

A  A 

separated  into  its  components  a$"  and  or".  Using  an  imperfect  estimate 
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contamination  after  the  Initial  scattering  of  radar  energy 
by  a  ship. 


of  the  exact  theoretical  sea-echo  cross  section  °exact»  the  resultant 
calibration  yields 


°ship 


°exact 


(5.4) 


Assuming  that  multiplicative  noise  terms  can  be  ignored  (for  the 
sake  of  conceptualizing).  Equations  (5.3)  and  (5.4)  are  related  by 

°ship  ~  °ship  +  e  *  (5.5) 

Here  e  represents  the  remaining  errors  after  the  processing  system  has 
done  its  best  to  minimize  the  effects  of  various  'noises'  accumulated 
after  the  initial  scattering  of  energy  from  the  target.  The  term  e  is 
defined  as  post-processing  noise  and  consequently,  in  the  context  of 
processed  radar  returns,  the  term  post-processing  signal-to-noise  ratio 
is  used. 

Pre-processing  noise  is  noise  present  in  the  returned  signal  before 
any  processing,  such  as  filtering,  is  done  to  reduce  the  effect  of  this 
contamination.  For  example,  a  lightning  strike  might  add  10  dBm2  of 
pre-processed  noise  to  a  scattered  radar  signal,  and  this  would 
eventually  become  a  component,  to  some  degree,  of  post-processed  noise 
e. 

Chen  [1]  concluded  that  the  total  noise  power  (i.e.,  the  error 
variance  of  the  final  estimation  of  radar  cross  section  o)  rather 
than  the  specific  noise  characteristics,  has  the  most  impact  on  the 
performance  of  classification  algorithms.  He  went  on  to  say  that. 


because  there  are 


numerous  independent  noise  sources,  none  of  which  dominate,  the  Central 
Limit  Theorem  can  be  applied  and  the  sum  of  these  noises  can  be 
approximately  described  as  Gaussian. 

Headrick  and  Skolnik  [9]  commented  that  the  effect  of  external 
(pre-processed)  noise  sources  such  as  lightning,  man-made  noise  and 
other  HF  transmissions,  can  be  significantly  greater  than  that  of  the 
internal  (pre-processed)  Gaussian  receiver  noise.  The  ionosphere 
contributes  to  signal  distortion  by  introducing  complex  multiplicative 
terms  by  dispersion  and  by  polarization  rotation.  These  errors  will 
appear,  to  a  certain  degree,  in  the  final  post-processed  estimate  of  the 
radar  cross  section.  A  complete,  representati ve  model  for 
post-processed  sky-wave  path  distortion  is  clearly  needed,  however,  a 
sufficiently  detailed  model  has  not  yet  been  developed.  In  view  of 
this,  and  based  on  Chen's  initial  conclusion,  the  Gaussian  model  was 
used. 

Figure  5.3  shows  a  noise-free  vector  which  is  contaminated  by 
adding  in-phase  and  quadrature  Gaussian  noise  components.  The  resultant 
vector  has  real  and  imaginary  terms  thus 

I  =  A  cose  +  rTj  (5.6) 

Q  =  A  sine  +  nq  (5.7) 

where  rTj  and  nq  are  independent  Gaussian-distributed  random  variables 
with  zero  mean  and  variance  a2.  The  power  in  component  n^  is  equal  to 
that  of  nq.  The  noise  amplitude  is  given  as 
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and  is  Rayleigh  distributed  [15].  The  noise  phase  is  given  as 


9n  =  tan_1  ~  (5.9) 

nQ 

and  is  uniformly  distributed  [15].  An  expression  for  signal  to  noise 
ratio  is  given  as 

S  I2  +  Q2  A2 

N  VAR(nT)  +  VAR(nQ)  a2  (5.10) 

where 

a2  is  the  noise  power,  and 

A2  is  the  average  signal  power  estimated  as 


(5.11) 


where 

A-j j  is  the  amplitude  for  the  i^h  frequency  and  the  ship, 
i  is  a  frequency  index,  i  =  1,2 . NF  =  NUMBER  OF  FREQUENCIES, 

and, 

j  is  a  target  index,  j  =  1,2 . NS  =  NUMBER  OF  SHIPS. 


5.5  POST-PROCESSING  SIGNAL-TO-NOISE  RATIO 


From  the  previous  discussion,  we  define  post-processing  signal-to- 
noise  ratio  (post-processing  SNR)  as  the  ratio  of  signal  power  to  error 
variance  after  the  received  waveform  has  been  processed  to  produce  a 
final  best  estimate  of  the  amplitude  or  phase,  or  both,  of  the  target 
radar  cross  section. 

From  [1]  post-processing  SNR  can  be  estimated  as 

S  M 

N  51  /M+2  (5.12 

where  M  is  the  number  of  samples  for  a  particular  frequency.  Using  a 
typical  sample  time  of  10  seconds  and  taking  M=100  samples,  (a  total 
observation  time  of  16  minutes)  yields  a  post-processing  SNR  of 

s  100 

N  a  /T02  a  1°  s  !0  dB. 

This  value  is  used  as  a  reference  point  in  the  experiments  discussed 
below. 

Post-processing  SNR  is  limited  by  the  total  time  available  to  take 
the  M  samples  and  by  the  duration  of  a  sample.  Assuming  that  the  sea 
state  is  used  as  a  reference,  then  the  total  time  available  is  limited 
to  between  1  and  12  hours;  the  period  over  which  the  sea  state 
statistics  are  stationary  [16],  The  sample  duration  is  the  inverse  of 
doppler  resolution. 


where  ts  is  the  coherent  sampling  interval  (seconds)  and  T<j  is  the 
doppler  resolution  (Hz).  The  upper  bound  on  ts  is  set  by  the  maximum 
coherent  observation  time  through  the  ionosphere.  This  depends  on  the 
particular  ionization  layer;  25  seconds  is  a  typical  maximum  for  F-layer 
[11]  and  100  seconds  is  possible  for  E-layer  [11].  The  lower  bound,  set 
by  the  required  doppler  resolution  depends  on  the  radial  component  of 
ships  velocity,  and  of  the  sea  state  [12],  Generally  10  seconds  (T,j=0.1 
Hz)  is  a  safe  minimum.  Assuming  a  12  hour  interval,  the  maximum 
attainable  SNR  is  then 


S  (12x3600/10) 

¥  -  rtT2Tf600/ToTTT  =  18  dB 


In  view  of  the  fact  that  the  radar  system  will  usually  scan  thousands  of 
square  miles  of  ocean  and  possibly  need  to  identify  several  targets,  it 
might  not  be  possible  to  devote  12  hours  to  observing  one  target  at  one 
frequency.  Consequently,  the  figure  of  18  dB  would  then  be  an 
unrealistic  upperlimit.  For  a  maximum  observation  time  of  1  hour, 
post-processing  SNR  has  a  maximum  of  13  dB. 

Another  important  consideration  concerning  (post-processing)  SNR  is 
the  variability  of  signal  powers  between  individual  frequencies,  between 
ships  and  between  classes  of  ships. 

From  Figure  B.l  in  Appendix  B  it  is  evident  that  signal  powers  of 
returns  at  individual  frequencies  can  vary  from  0  to  40  dBm^.  The 
average  signal  power  for  this  ship  might  be  30  dBm?,  and  so  for  a  10  dB 
post  processing  SNR,  it  is  necessary  to  add  20  dBm?  of  noise  power  to 


each  amplitude.  This  yields  SNRs  for  individual  amplitude  returns 
ranging  from  -20  dB  to  20  dB.  Clearly  the  lower  amplitudes  are  much 
more  distorted  than  the  larger  ones,  for  a  particular  level  of  injected 
noise  power.  This  is  reasonable  since  for  a  given  noise  environment, 
weaker  returns  are  more  susceptable  to  degradation  by  noise.  The  same 
argument  can  be  developed  for  ships;  the  individual  amplitude  returns  of 
larger  ships  over  several  frequencies  are, on  average,  larger  than 
amplitude  returns  of  smaller  ships.  And  finally,  we  consider  the  case 
of  classes.  If  a  classification  is  performed  using  a  catalog  comprising 
ships  at  aspect  angles  0°,  90°,  and  180°,  then  the  average  signal  power, 
used  to  determine  the  amount  of  noise  required  for  a  given 
post-processing  SNR,  would  be  based  on  the  average  power  for  the  3 
classes.  The  90°  aspect  angle  amplitude  returns  are  generally  higher 
than  those  of  0°  and  180°  aspect  angles,  consequently  we  would  maintain 
a  constant  level  of  noise  power  amongst  the  3  classes,  but  SNR  would 
vary  from  class  to  class  and  the  resulting  classification  curve  would 
not  be  representative  of  any  one  particular  aspect  angle. 

In  general,  the  signal  level  of  a  received  amplitude  return  (not 
including  the  noise  power)  can  be  estimated  with  a  useful  degree  of 
accuracy.  This  information  can  be  used,  a  priori,  with  the  estimates  of 
aspect  and  elevation  angles  to  reduce  the  size  of  the  catalog.  As  a 
consequence,  we  are  interested  in  the  classification  of  ships  at 
specific  aspect  and  elevation  angles,  rather  than  over  a  group  of 
markedly  different  aspect  or  elevation  angles.  Hence  if  we  compare 
classification  results  for  90°  aspect  with  a  classification  results 


for  180°  aspect  at  a  given  post-processing  SNR,  we  must  bear  in  mind 
that  the  amount  of  injected  noise  differs  for  each  case. 

The  consequences  of  this  discussion  are  somewhat  dependent  on  the 
effect  of  the  difference  in  average  signal  powers,  (between  any  two 
given  ships),  on  classification  errors.  One  way  to  access  the 
importance  of  this  difference  would  be  to  compare  classifications  where 
all  catalog  members  are  normalized  with  respect  to  their  own  average 
signal  powers,  with  classifications  where  the  variability  of  average 
signal  power  is  retained. 


5.6  ESTIMATION  OF  THE  PROBABILITY  OF  MISCLASSIFICATION 

Chen  [1]  used  the  Maximum  Likelihood  Estimate  (MLE)  [14]  as  the 
estimate  of  probability  of  error  for  a  given  target; 


PE  »  P 


E 


where  PE  is  the  probability  of  error  and  P^  is  the  MLE  of  the 
probability  of  error.  The  proximity  of  the  terms  expressed  in  the 
equation  above  is  usually  stated  in  terms  of  confidence  interval.  A 
( 1-a)  confidence  interval  for  PE  is  given  as 


±  K 

a 


(5.14) 
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M  =  number  of  targets 


n  =  number  of  experiments 

A 

P0  =  probability  for  which  the  confidence  interval  is  desired 
f;a  is  such  that 

*<0  ■  1  -  ««  *  h  l  d*  (5.15) 

—  oo 

where  <s>  is  the  standard  (zero  mean,  unit  variance)  normal  distribution. 
For  example,  the  calculated  90%  confidence  interval  at  30%  error  (a 
typical  error  value)  for  18  targets  and  50  experiments  is  found  as 


a  =  1  -  0.9  =  0.1 
♦  Ua)  =  1  -  a/2  =  0.95 

Ka  s  1*65 

P0  =  30%  =  0.3 

/  0.3 (1-0.5) 

PE  =  PE  ±  1.65  si  1.8x50 
PE  =  PE  ±  2.5%  . 


Clearly,  the  result  is  made  more  accurate  by  increasing  the  number  of 
experiments.  It  must  be  emphasized  that  the  confidence  interval  is  not 
an  expression  of  probability,  i.e.,  the  above  calculation  does  not  show 
that  9  times  out  of  10  the  actual  probability  of  error  at  30% 
misclassification  will  be  within  ±2.5%  (or  27.5%  <  PE  <  32.5%).  DeGroot 
[17]  pointed  out  that  "confidence"  is  a  more  subtle  and  less  defined 


term  than  "probability"  and  that  under  certain  experimental  conditions, 
the  term  "confidence"  interval  can  be  misleading.  In  regard  to  this,  we 
must  view  confidence  interval  as  a  measure  of  accuracy  for  the  measured 
result,  not  as  an  absolute  probability. 

In  his  experiments,  Chen  [1]  used  M=15  experiments.  The 
significant  increase  to  M=50  for  this  work  is  for  two  reasons.  Firstly, 
the  curves  are  more  reliable,  especially  when  close  together,  if  the 
confidence  interval  is  smaller.  A  ±5.6%  confidence  interval  (using 
M=15)  in  some  cases  meant  that  two  curves,  representing  the  same 
experiment,  using  the  same  parameters  but  with  different  random  number 
seeds,  differed  by  11%.  Using  M-50  experiments  cuts  this  worst  case 
error  by  half,  and  makes  conclusions  about  particular  sets  of  curves 
more  reliable.  More  importantly,  the  large  number  of  classification 
runs  required  that  curves  be  plotted  automatical ly  after  each  run. 

Hence  it  is  desirable  to  have  a  high  degree  of  similarity  between  curves 
from  different  runs  representing  the  same  classification  parameters. 


CHAPTER  VI 


EXPERIMENTS 


6.1  INTRODUCTION 


This  chapter  presents  most  of  the  original  work  done  in  this 
report.  The  purpose  of  the  experiments  discussed  here  is  to  study 
classification  behaviour  under  a  wide  variety  of  the  available 
classification  parameters.  These  are  listed  below  (a  list  of  commonly 
used  terms  is  given  in  Table  6.1). 


1.  Frequency  Band  (in  the  allotted  2-7  MHz) 

2.  Comparisons  with  previous  work  on  ships 

3.  Elevation  Angle  (known,  unknown  and  with  error) 

4.  Polarization 

5.  Aspect  Zone  (known,  unknown) 

6.  Aspect  Error  (magnitude  of  error  and  location  in  aspect  zone), 
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TABLE  6.1 


DEFINITIONS 


1.  ASPECT  ZONE:  A  small  range  of  aspect  angles  centred  on  or  adjacent 


to  a  particular  aspect 

angle. 

ASPECT  ZONE 

NAME 

ASPECT  ANGLES 

0° 

BOW 

0°,10° 

90° 

BROADSIDE 

O 

O 

00 

rH 

m 

O 

o 

cr 

* 

o 

o 

CO 

O 

o 

00 

iH 

STERN 

170°, 180° 

2.  KNOWN  ASPECT:  If  ship  data  having  more  than  one  aspect  angle  is 

used  in  a  classification,  then  the  aspect  angle  is  assumed 
known  when  the  algorithm  only  allows  comparisons  between  an 
'unknown'  noisy  target  at  aspect  0|(,  with  'noise-free'  catalog 
targets  at  the  same  aspect  angle  9K.  The  same  follows  for 
known  elevation. 

3.  UNKNOWN  ASPECT:  If  ship  data  having  more  than  one  aspect  angle  is 

used  in  a  classification,  then  the  aspect  angle  is  assumed 
unknown  when  the  algorithm  permits  comparisons  between  an 
'unknown'  noisy  target  at  8|<  with  all  'noise-free'  catalog 
targets  at  all  aspect  angles  used  in  the  classification. 

4.  ALGORTHIM:  One  of  the  following: 

1.  Nearest  neighbour  (NN),  using  any  of  the  features 
listed  in  5. 

2.  Time  domain  (T) 

5.  NN  ALGORITHM  FEATURES: 

A  Amplitude  only 
W  Differential  phase  only 
AW  Amplitude  and  differential  phase 
J  Relative  amplitude 

"RW  Relative  amplitude  and  differential  phase. 
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TABLE  6.1 


(Continued) 


Note  that,  in  general,  the  term  ‘feature1,  in  the  context  of 
resonance  region  radar  returns,  applies  to  any  property  or  quality 
associated  with  the  returns.  This  includes,  for  example,  the 
magnitudes  of  the  time  domain  impulse  response. 


PARAMETER:  A  variable  in  the  measurement  or  classification  process 
such  as  frequency,  aspect  angle,  elevation  angle,  polarization, 
feature  or  algorithm. 


DATA  BASE:  A  collection  of  data  files  containing  a  measurement 
vector  for  each  ship. 


CATALOG:  A  single  2  dimensional  complex  array  containing  the 

amplitudes  and  phases  of  all  ships  at  the  selected  frequencies, 
and  other  parameters. 


FEATURE  VECTOR:  A  single  vector  for  a  particular  target, 

dimensional  in  frequency  or  time  ,  derived  from  the  catalog  by 
selecting  a  particular  feature. 


POLARIZATION:  One  of  the  following: 

1.  Vertical ,  V 

2.  Horizontal,  H 

3.  Cross,  X 

4.  Vertical  divided  by  horizontal,  V/H. 

The  term  described  in  4  is  not  really  a  polarization  scheme,  in 
the  sense  of  the  preceding  three  terms,  but  is  called  a 
polarization  for  convenience.  Strictly  speaking,  the  polarization 
of  a  wave  describes  the  instantaneous  orientation  of  the  electric 
field  vector;  the  terms  listed  above  refer  to  a  particular 
measurement  scheme  or  use  of  radar  cross  section  returns,  with 
respect  to  polarization. 


If  each  of  these  parameters  were  to  be  assessed  in  terms  of  the 
others,  over  10,000  curves  would  be  needed.  Clearly  this  is  not 
practical;  however,  an  intelligent  approach  toward  choosing  the 
experiments  allows  a  thorough  investigation  without  incurring  too  much 
processing  of  data. 

First,  experimenting  with  a  sub-band  in  the  2-7  MHz  band  indicates 
the  best  region  of  frequencies  (if  any)  for  a  particular  type  of 
classification.  Second,  an  evaluation  of  classification  performance  as 
a  function  of  the  number  of  frequencies  (NF)  provides  a  comparison  with 
work  presented  in  [1]  and  also  establishes  the  ranking  of  a  particular 
number  of  frequencies.  Hence  we  can  choose  NF=8  for  subsequent 
experiments  and  refer  to  this  section  for  results  pertaining  to  other 
values  of  NF.  The  problem  of  choosing  the  desired  classification 
frequencies  is  thus  solved.  Next,  a  study  of  elevation  angle  and  its 
effect  on  classification  allows  classification  using  only  one  elevation 
in  subsequent  experiments.  The  remaining  parameters  are  then  classified 
using  various  features  and  algorithms,  polarizations  and  aspect  zones. 
Sometimes  it  is  useful  to  reduce  the  number  of  features  in  the  NN 
algorithm  by  eliminating  W  and  AVI,  or  W  and  A.  W  is  generally  the 
least  useful  of  NN  features  and  it  is  unlikely  that  only  phase  would  be 
measured  practical  situation. 

It  must  be  remembered  that  certain  parameters,  such  as  relative 
amplitude  (A),  and  V/H  polarization,  are  not  really  tested  in  these 
experiments  since  the  difficulties  which  they  were  designed  to  overcome 
were  not  simulated.  This  should  be  taken  into  consideration  when  making 
comparisons  between  features  such  as  A  and  A,  or  polarizations  such  as  V 


and  V/H.  For  example,  V/H  polarization  purportedly  has  the  property 
that  multiplicative  errors  cancel  out  by  virtue  of  the  division  of  a 
vertically  polarized  phasor  by  a  horizontally  polarized  phasor.  To  test 
the  validity  of  this  assumption,  the  ship  data  must  be  contaminated  with 
multiplicative  noise  before  classification  proceeds.  For  reasons 
mentioned  earlier,  multiplicative  noise  models  were  excluded  from  this 
analysis,  and  what  we  are  really  measuring  is  the  ‘insertion  loss'  of 
the  algorithm  which  uses  this  parameter. 

In  the  following  sections,  each  experiment  is  introduced,  detailing 
the  aim  of  the  experiments  with  a  brief  discussion  of  any  relevent 
points.  The  results  of  all  experiments  in  the  form  of  misclassification 
percentage  versus  post-processing  SNR  curves,  are  contained  in  Appendix 
A.  These  results  are  summarized  by  means  of  histograms  representing 
averaged  misclassification  percentage  at  10  dB  post-processing  SNR,  and 
are  presented,  along  with  typical  misclassifcation  curves. 

Conclusions  drawn  from  the  histograms  often  compare  the 
classification  performance  of  one  parameter  with  the  performance  of 
another  by  saying  that  misclassification  percentage  (at  10  dB 
post-processing  SNR)  is  higher  or  lower  by  x  %;  here  x  is  always  the 
di f ference  between  two  misclassification  percentages,  not  the  percentage 
increase  of  one  misclassification  percentage  compared  with  another. 


6.1.2  INTERPRETATION  OF  HEADERS  IN  CLASSIFICATION  RESULTS 


The  data  presented  in  subsequent  sections  were  plotted  with  an 
automatic  header  system  to  aid  the  batch  processing  of  classification 
experiments.  The  header  comprises  of  up  to  11  lines  and  these  are 
described  as  follows: 


1.  LINE  1.  TARGET  TYPE,  i.e.,  ships,  aircraft,  ground 
vehicles,  etc. 


2.  LINE  2.  POLARIZATION.  This  can  be  either  vertical  ('V'), 
horizontal  ('H'),  cross('X')  or  vertical  divided  by 
horizontal  ( ‘ V/H * ) .  The  polarization  for  each  curve 
is  printed  if  this  varies  from  curve  to  curve. 


3.  LINE  3.  A  PRIORI  KNOWLEDGE  OF  ELEVATION  ANGLE.  This  can  be 
either  'known',  'unknown',  or  'known/unknown ’  if  some 
of  the  curves  use  known  elevation  angle  and  others  use 
unknown  elevation  angle.  The  system  is  specific  about 
which  is  known  and  which  is  unknown  only  if  2  curves 
are  present. 


4.  LINE  4.  ELEVATION  ANGLE(S) .  This  can  be  '15'  for  15° 

elevation  data,  '27'  for  27°  elevation  data  or  '15,27' 
if  both  elevation  angles  are  used.  Elevation  angle  is 
printed  if  it  varies  between  curves,  so  if  there  were 
5  curves  and  only  two  entries  in  LINE  4,  say  '15,27' 
and  '21'  y  the  last  4  curves  would  be  representative  of 
27°  elevation  data. 


5.  LINE  5.  A  PRIORI  KNOWLEDGE  OF  ASPECT  ANGLE.  This  is  compiled 
in  the  same  way  as  LINE  3. 


LINE  6.  MINIMUM,  MAXIMUM  AND  INCREMENT  OF  ASPECT.  The  minimum 
and  maximum  aspect  angles  can  be  any  of  those  listed 
in  Table  3.1.  If  these  parameters  vary  from  curve  to 
curve,  they  are  printed  out  for  each  curve  in  the  same 
way  as  LINE  4  (or  LINE  2). 


LINE  7.  NUMBER  OF  FREQUENCIES.  This  is  printed  for  each 
curve. 


LINE  8.  NUMBER  OF  TARGETS.  This  is  always  a  multiple  of  6, 

the  number  of  ships.  (No.  of  targets  *  6  x  No.  aspect 
angles  x  No.  elevation  angles).  This  is  printed  for 
each  curve. 


LINE  9.  90%  CONFIDENCE  INTERVAL  AT  30%  MISCLASSIFICATION. 

This  is  calculated  according  to  the  discussion 
in  5.6,  and  is  printed  for  each  curve. 


LINE  10.  CLASSIFICATION  FEATURES.  These  are  listed  as: 

'A'  Amplitudes  only 
'W  Differential  phases  only 
'AW  Amplitudes  and  phases 
'R1  Relative  Amplitude 
' RW '  Relative  Amplitude  and  phase 
' T*  Time  domain  algorithm. 


LINE  11.  IDENTITY  OF  CURVES  WITH  ASPECT  OR  ELEVATION  ANGLE 

ERRORS.  This  is  printed  only  if  there  is  an  error  in 
elevation  angle  or  aspect  angle.  Note  that  the 
classification  software  does  not  allow  both  types  of 
errors  at  once.  For  example,  if  3  curves  were  plotted 
and  the  last  two  had  aspect  errors,  LINE  11  would  read 

'ASPECT  ERR  IN  CURVE  2  3' 

Curves  are  identified  as  follows: 

_  Curve  1 

-  Curve  2 

.  Curve  3 

.  Curve  4 

-  Curve  5 

-  Curve  6 


NN 

algorithm 


6.2  FREQUENCY  BAND 
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6.2.1  INTRODUCTION 

This  set  of  experiments  was  designed  to  examine  the  effect  of 
choosing  a  particular  frequency  band  for  various  aspect  angles, 
polarizations  and  algorithms.  (The  term  algorithm  implies  the  use  of 
various  features  in  the  NN  algorithm;  see  Table  6.1). 

The  available  band  of  2  to  7  MHz  was  split  into  3  non-overlapping 
sub-bands,  each  containing  4  discrete  frequencies  separated  by  0.4  MHz. 


These  were 
Band  1 


Band  2 


Band  3 


2  -  3.2  MHz 
4  -  5.2  MHz 


5.8  -  7.0  MHz. 


Generally,  it  is  expected  that  the  lower  of  frequencies  will 
provide  the  best  classification  performance.  This  is  because  the  radar 
cross  section  at  lower  frequencies  tends  to  vary  less  per  unit  bandwidth 
compared  with  higher  frequencies.  Consequently,  for  higher  frequencies, 
(in  the  upper  resonance  region)  a  small  change  in  a  parameter  such  as 
aspect  angle,  or  the  addition  of  noise  to  the  cross  section  amplitudes 
results  in  a  greater  change  in  the  selected  features  compared  to  the 
change  at  lower  frequencies.  In  this  sense,  the  radar  cross  section 
frequency  response  is  more  reliable  (i.e.,  impervious  to  small  changes 
in  orientation,  frequency,  etc.)  at  lower  frequencies  than  at  higher 
frequencies. 

Note  that  for  this  experiment  only  a  single  elevation  angle  (27°) 
was  used.  This  is  justified  by  a  study  of  the  effect  of  elevation  angle 
on  classification  presented  below. 
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6.2.2  RESULTS  AND  CONCLUSIONS 


Figure  6.1  shows  a  set  of  typical  curves  representing 
misclassification  percentage  versus  post-processing  SNR.  Similar  plots 
using  other  parameters  are  contained  in  Appendix  A;  the  results  for  all 
curves  have  been  summarized  by  compiling  averages  of  misclassification 
percentage  at  10  dB  post-processing  SNR  and  are  presented  in  Figures  6.2 
to  6.4. 

From  Figure  6.2  it  is  evident  that  for  0°  and  180°  aspect  zones, 
there  is  no  distinct  preference  for  a  particular  frequency  band.  90° 
aspect  zone  favours  the  lower  bands,  but  not  significantly.  Talcing  an 
average  across  all  3  aspect  zones  results  in  a  marginal  preference  for 
band  1,  showing  that  in  general,  the  performance  for  a  given  sub-band  in 
the  2-7  MHz  band  is  not  significantly  affected  by  aspect  zone.  This  is 
encouraging  in  one  respect;  namely  that  If  the  Ionosphere  or  range 
conditions  necessitated  the  use  of  higher  frequencies  (In  the  2-7  MHz 
band),  then  performance  is  not  degraded  for  a  particular  azimuthal 
orientation  of  the  target  ship. 

Figure  6.4  shows  a  clear  preference  for  band  1  (2-3.2  MHz)  for 
vertical  and  cross  polarizations.  For  the  other  two  polarizations, 
frequency  band  seems  unimportant.  In  Figure  6.3,  a  clear  precedence  of 
band  1,  band  2,  followed  by  band  3  is  set,  for  each  algorithm.  This 
seems  to  best  conform  to  the  Initial  expectation  that  classification  Is 
more  reliable  at  lower  frequencies  (i.e.,  closest  to  L/X=l).  However, 
certain  results  show  an  insensitivity  to  frequency  band,  at  least  for 
the  range  of  freuqency  bands  available  here.  Choosing  a  band  of  much 
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Figure  6.1.  Misclasslflcation  percentage  versus  post-processing  SNR  for 
3  sub-bands  in  the  2-7  MHz  band. 
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Figure  6.3.  Average  misclassification  percentages  at  10  dB 

post-processing  SNR  for  3  bands,  as  a  function  of 
algorithm. 
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Figure  6.4.  Average  misclassification  percentages  at  10  dB 

post-processing  SNR  for  3  bands,  as  a  function  of 
polarization. 
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higher  frequencies,  for  example  15  to  16.2  MHz,  might  show  a  dependence 
on  frequency  band  not  measurable  here.  In  conclusion,  certain 
parameters,  such  as  vertical  and  cross  polarizations,  and  the 
classification  algorithm  (i.e..  A,  AW,  AW,  or  T)  are  markedly  dependent 
on  the  selection  of  frequencies  In  the  2  to  7  MHz  band. 

6.3  COMPARISON  WITH  PREVIOUS  WORK 

6.3.1.  INTRODUCTION 

The  purpose  of  this  experiment  was  to  provide  a  direct  comparison 
between  the  work  done  by  Chen  [1]  and  that  done  here.  The  essential 
difference  between  Chen's  data  and  the  data  used  here  is  that  the  former 
exclusively  uses  an  elevation  angle  of  0°,  while  the  latter  has 
elevation  angles  of  15°  and  27°.  The  comparison  was  done  using  27° 
elevation  only,  since  classification  statistics  are  similar  for  27°  and 
15°  elevations. 

Five  features  (A,  AW,  W,  A,  and  AW)  in  the  NN  algorithm,  and  the 
time  domain  algorithm  were  evaluated  at  2,  4,  6,  8  and  12  frequencies, 
using  vertical  polarization,  27°  elevation  and  aspect  angles  of  0°,  90° 
and  180°  (aspect  angles  assumed  known).  The  frequencies  selected  by 
using  the  above  numbers  were  discussed  in  Chapter  V,  Section  5.2.  The 
data  at  aspect  angles  0°,  90°  and  180°  are  nearly  independent  so  that 
the  results  do  not  pertain  to  a  particular  aspect  zone.  (Chen  used  this 
approach  in  most  of  his  work.)  The  evaluation  using  12  frequencies  was 
included  to  see  if  performance  could  be  improved. 


Classification  results  using  known  and  unknown  aspect  angles  at  8 
frequencies,  and  other  parameters  as  above,  were  compared  with  those  in 
[1].  When  the  aspect  angle  is  known,  a  noise-corrupted  target  Is 
compared  only  with  catalog  members  of  the  same  aspect  angle.  Unknown 
aspect  Implies  that  the  noisy  target  is  compared  with  members  of  the 
catalog  at  all  aspects  (see  Table  6.1). 

6.3.2  RESULTS  AND  CONCLUSIONS 

Figures  6.5  and  6.6  show  typical  classification  results.  Figures 
6.7  and  6.8  indicate  a  general  Increase  in  misclassificatlon  percentage 
when  27°  elevation  is  used  in  comparison  with  0°.  This  increase  Is 
about  6%  for  each  selected  number  of  frequencies.  Chen  used  5  ships 
compared  with  the  6  ships  used  here,  which  should  account  for  3%  of  the 
difference  (4/5  -5/6).  This  still  leaves  a  3%  Improvement  for  0° 
elevation  over  27°.  Although  this  difference  is  apparent  for  all 
numbers  of  frequencies,  it  is  not  sufficiently  large  to  be  conclusive 
about  the  effect  of  elevation  angle  on  classification.  However,  the 
tilting  of  a  target  when  elevation  angles  above  0°  are  used  is 
equivalent  to  a  compression  in  range  of  the  various  scattering 
structures,  from  the  point  of  view  of  an  incident  electromagnetic  wave. 
Furthermore,  structures  that  are  vertical  at  0°  elevation  (hence  good 
scattering  centres  for  vertically  polarized  waves)  become  weaker 
scatterers  when  tilted.  Consequently,  the  process  by  which  nulls  and 
peaks  are  produced  in  the  amplitude  returns,  which  essentially 
characterize  a  particular  target,  is  weakened.  Intuitively 
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Figure  6.5.  Misclasslfication  percentage  versus  post-processing  SNR  for 
4  different  numbers  of  frequencies,  using  amplitudes  only. 
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Figure  6.7.  Average  misclassification  percentages  at  10  dB 

post-processing  SNR  for  3  different  numbers  of  frequencies 
as  a  function  of  algorithm  (from  Chen  [1]). 
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Figure  6.8.  Average  misclassification  percentages  at  10  dB 

post-processing  SNR  for  3  different  numbers  of  frequencies 
as  a  function  of  algorithm. 


classification  is  expected  to  be  less  reliable  at  higher  elevation 
angles.  Data  sets  at  say  50°  elevation  might  be  taken  to  confirm  this 
hypothesis. 

Chen  [1]  established  a  ranking  of  features  and  algorithms  in  terms 
of  lowest  mi sclassifi cation  percentage  for  each  number  of  frequencies. 
For  NF=2,  AW<A<W<T,  for  NF=4,  T<AW=A<W,  and  for  NF=8,  T<A<AW<W=AW<A. 
Examination  of  Figures  6.7  and  6.8  shows  this  same  ranking  to  hold  at 
27°  as  well.  The  time  domain  feature  is  still  critically  affected  by 
the  use  of  only  2  frequencies  for  27°  elevation  (as  one  would  expect, 
since  this  is  the  absolute  minimum  allowable  to  permit  the  operation  of 
the  DIFT). 

For  both  27°  and  0°  elevation  it  is  evident  that  the  addition  of 

a 

phase  information  (comparing  A  with  AW)  plays  a  more  significant  role  at 
2  frequencies  than  at  a  higher  number  of  frequencies.  For  example,  with 
N=2  and  27°  elevation,  AW  is  produces  10%  fewer  misclassification  errors 
than  A  alone.  The  contribution  that  phase  information  makes  to 
classification  performance  seems  to  become  smaller  as  the  number  of 
frequencies  is  increased.  This  phenomenon  also  manifests  itself  in  the 
relative  amplitude  results.  Using  AW  gives  an  average  improvement  of 
10%  over  A,  for  N=4,  8,  and  12,  but  15%  for  N=2.  Phase  information, 
therefore,  could  become  particularly  valuable  when  certain  conditions 
constrain  the  measurements,  such  as  being  restricted  to  two  frequency 
measurements  or  having  a  multiplicative  bias  in  the  amplitude  data. 
Generally  if  4  or  more  frequencies  are  available  and  phase  information 
is  at  hand,  it  is  best  to  use  the  time  domain  algorithm. 
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The  addition  of  4  extra  frequencies  above  the  previously  used 
number  of  8  yields  a  small  improvement  of  1%.  In  some  cases,  the  use  of 
12  frequencies  results  in  more  classification  errors  than  the  use  of  8 
frequencies.  Figure  6.12  shows  the  variation  of  average 
misclassification  percentage  with  number  of  frequencies.  The  minimal 
increase  in  performance  in  going  from  8  to  12  frequencies  and,  in 
general,  from  a  lower  to  a  higher  number  of  frequencies,  is  consistent 
with  the  findings  of  the  previous  chapter.  There  it  was  shown  that 
using  lower  frequencies  in  the  allotted  2-7  MHz  band  resulted  in  better 
performance,  depending  on  which  parameters  were  used.  Increasing  the 
number  of  frequencies  means  that  higher  frequencies  would  be  included, 
thus  yielding  a  minimal  improvement. 

The  number  of  frequencies  is  usually  the  most  costly  parameter  (in 
terms  of  processing  time)  in  a  classification  procedure.  Bearing  this 
in  mind,  and  using  results  like  those  in  Figure  6.12,  it  should  be 
possible  to  obtain  an  optimal  number  of  frequencies  using  counterposing 
weightings  for  the  number  of  frequencies  and  the  acceptable  level  of 
misclassification  percentage.  In  subsequent  classification  experiments 
8  frequencies  are  used.  This  tends  to  de-emphasize  the  affect  of 
isolated  errors  or  biases. 

The  difference  in  average  misclassification  percentage  between 
classifications  using  known  aspect  and  unknown  aspect  angle  is  about  6% 
for  27°  elevation  angle  data,  and  5%  for  0°  elevation  angle  data. 

Figure  6.9  shows  a  typical  classification  result  and  Figures  6.10  and 
6.11  summarize  the  results  of  all  curves  produced  in  this  part  of  the 
experiment,  the  remainder  of  which  are  contained  in  Appendix  A. 
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Figure  6.9.  Misclassificatlon  percentage  versus  post-processing  SNR  for 
known  and  unknown  aspect  angles. 
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Figure  6.10.  Average  misclassificatlon  percentages  at  10  dB 

post-processing  SNR  for  known  and  unknown  aspect  angles 
as  a  function  of  algorithm  (from  [1]). 


Figure  6.11.  Average  misclasslflcation  percentages  at  10  dB 

post-processing  SNR  for  known  and  unknown  aspect  angles 
as  a  function  of  algorithm. 


Figure  6.12.  Average  misclassification  percentage  versus  the  number 
of  frequencies  used. 

6.4  ELEVATION  ANGLE 

6.4.1  INTRODUCTION 

This  experiment  was  divided  into  3  parts.  The  first  was  designed 
to  examine  the  differences  in  classification  performance  between  ship 
data  at  elevation  angles  of  15°  and  27°.  The  second  part  investigated 
classification  performance  when  the  elevation  angle  is  known  and 
unknown,  and  the  final  part  measured  the  effect  of  having  an  error  in 
elevation  angle. 

Each  part  of  the  experiment  was  conducted  at  the  various  aspect 
zones  (0°,  90°,  180°),  polarizations  (V,  H,  X,  V/H)  and  algorithms. 

In  order  to  keep  the  data  processing  task  to  a  manageable  size, 
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only  the  A,  AW  and  A  features  of  the  nearest  neighbour  algorithm  were 
considered.  The  time  domain  algorithm  was  also  used.  This  combination 
alone  leads  to  a  total  of  48  graphs,  with  each  part  of  the  experiment 
for  a  given  set  of  parameters  on  the  same  graph. 

Data  for  only  2  elevation  angles,  15°  and  27°  were  available.  For 
the  'unknown  elevation’  case,  data  for  a  noise-contaminated  target  ship 
is  compared  to  data  for  ships  at  15°  elevation,  and  27°.  The  only  error 
syndrome  available  was  ±12°.  Hence,  a  noise-contaminated  target  ship 
known  to  be  at  27°  elevation  would  be  compared  with  15°  elevation 
catalog  members  and  vice  versa.  Chen's  data  [1]  at  0°  elevation  were 
considered  for  use  in  this  experiment  but  were  ruled  out  on  the  grounds 
of  the  additional  complexity  necessary  in  the  classification  software 
for  the  minimal  comparisons  which  would  be  obtained.  (The  data  included 
5  of  the  6  ships  used  here,  but  only  at  vertical  polarization  and  aspect 
angles  of  0°,  90°  and  180°.) 


6.4.2  RESULTS  AND  CONCLUSIONS 


Figures  6.13  to  6.16  show  typical  classification  results  (see 
Appendix  A  for  others)  and  Figures  6.17  to  6.21  summarize  all  results  in 
terms  of  the  average  misclassification  percentage  at  10  dB 
post-processing  SNR. 

Figures  6.17  to  6.19  show  a  high  degree  of  similarity  between 
classifications  at  15°  elevation  and  those  at  27°.  For  aspect  zone, 
polarization  and  algorithm,  15°  elevation  has,  on  average,  an 
improvement  of  1.7%  fewer  classification  errors  than  27°  elevation. 
Although  this  improvement  is  small,  it  is  consistent  with  all  parameters 
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.13.  Misclassification  percentage  versus  post-processing  SNR 
for  various  elevation  angles. 
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Figure  6.14.  Misclassi fication  percentage  versus  post-processing  SNR 
for  various  elevation  angles. 
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15.  Misclasslfication  percentage  versus  post-processing  SNR 
for  various  elevation  angles. 
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Figure  6.16.  Misclassificatlon  percentage  versus  post-processing  SNR 
for  various  elevation  angles. 
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Figure  6.21.  Average  misclassification  percentages  at  10  dB 

post-processing  SNR  for  an  elevation  error  of  ±12°  as 
a  function  of  aspect  zone  and  algorithm. 


except  X  polarization  (where  27°  is  prefered),  and  it  agrees  with  the 


results  of  the  previous  section  where  0°  elevation  was  found  to  have,  on 


average,  3%  less  misclassification  percentage  as  compared  to  27c 


elevation.  The  difference  in  angle  between  15°  and  27°  is  clearly  not 


large  enough  to  provide  a  distinct  change  in  classification  performance. 


Figures  6.17  to  6.19  also  show  the  difference  in  misclassification 


percentage  between  known  and  unknown  elevation  angles  when  a  data  set 


comprising  2  elevation  angles  is  used.  Examining  the  known  elevation 


results  reveals  an  average  classification  error  of  27%,  which  is  4% 


higher  than  the  average  of  15°  and  27°  elevations  (23%)  taken  alone. 


Intuitively  these  would  be  expected  to  be  the  same  since 
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algorithimically,  known  elevation  (or  aspect)  simply  compiles  errors 
averaged  over  the  known  elevations  (or  aspects).  The  difference  in 
performance  is  particularly  distinct  for  the  case  of  AW  using  V/H 
polarization  at  broadside  (see  Figure  A. 40  ),  and  this  is  a  clue  as  to 
the  cause  of  this  discrepancy.  The  average  of  separate  classifications 
at  15°  and  27°  elevation  gives  15%  classification  error,  while  15°  and 
27°  known  elevation  gives  44%  misclassification.  Examining  the  average 
signal  powers  for  each  'nose-free'  data  base  yields  38  dB  for  15°,  21  dB 
for  27°  and  35  dB  for  15°  and  27°  elevation  (known).  The  average  of  38 
dB  and  21  dB  is 

10  LOGin  1038/io  +  i02i/iO  =  35  dB. 

_ 

Consider  the  case  of  15°  and  27°  elevation  (known).  If  a  SNR  of  10  dB 
is  required,  then  25  dBm2  of  noise  power  must  be  added  to  the  data  base 
amplitude  (and  phase)  returns.  However,  this  leads  to  13  dB  SNR  for  the 
15°  part  of  the  data  base,  and  -4  dB  SNR  for  the  27°  part  of  the  data 
base.  Consequently  the  15°  and  27°  known  elevation  case  is  an  average 
of  a  slightly  better  classification  using  15°  elevation  data,  and  a  very 
much  poorer  classification  using  27°  elevation  data  (at  10  dB  SNR).  In 
other  words,  the  15°  and  27°  known  elevation  result  is  only  the  average 
of  the  individual  results  when  other  parameters  allow  the  average  signal 
powers  of  the  'noise-free'  data  bases  to  be  the  same  (X  polarization  is 
such  a  case) . 


99 


This  result  follows  directly  from  the  discussion  in  Chapter  5.5 
where  two  points  were  established.  First,  the  classifications  for 
classes  having  widely  varying  average  signal  powers  have  a  constant 
injected  noise  power,  but  variable  (post-processed)  SNR  for  each  class. 
Second,  the  separate  classifications  for  the  classes  mentioned  above 
will  have  constant  (post-processed)  SNR  with  corresponding  different 
injected  noise  levels.  Results  due  to  Chen  [1]  and  results  established 
here  can  be  used  for  meaningful  comparisons  if  the  above  points  are 
taken  into  consideration. 

It  is  evident  from  Figures  6.17  to  6.19  that  a  priori  knowledge  of 
elevation  angle  results  in  5%  fewer  in  classification  errors.  This 
result  is  independent  of  aspect  zone  but  does  vary  with  polarization  and 
algorithm.  Specifically,  H  polarization,  and  relative  amplitude  A,  (not 
necessarily  together)  produce  significant  increases  in  misclassification 
percentage  for  an  unknown  elevation  angle,  where  there  is  a  10% 
difference  between  the  results  for  known  and  unknown  elevation  angle. 
These  parameters  are,  in  general,  less  favourable  toward  low 
misclassification  and  thus,  classification  without  a  priori  knowledge  of 
the  elevation  angle  is  particularly  sensitive  to  'adverse'  parameters. 

The  high  values  of  misclassification  percentage  when  an  error  is 
made  in  elevation  angle  (see  Figures  6.20  and  6.21)  are  due  in  part  to 
the  varying  SNR  problem  mentioned  earlier.  However,  note  that  for  X 
polarization,  where  signal  powers  for  27°  elevation  and  15°  elevation 
are  equal  (see  Table  B.l)  and  the  special  consideration  does  not  apply, 
that  classification  error  is  still  about  66%.  Hence  it  must  be 
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concluded  that  the  majority  of  the  classification  errors  introduced  with 
an  elevation  ambiguity  of  ±12°  stem  from  the  dissimilarity  of  targets  at 
15°  and  27°  elevations.  This  might  seem  contrary  to  previous  findings 
where  classification  performance  at  15°  was  found  to  be  very  similar  to 
classification  performance  at  27°.  It  must  be  noted  that  similarity  in 
classification  performance  between  two  given  parameters  is  not  directly 
related  to  the  similarity  of  the  targets  associated  with  those 
parameters. 

Classification  error,  as  a  result  of  an  elevation  angle  error  of 
±12°,  is  about  74%  on  average.  This  result  is  independent  of  aspect 
zone  and  algorithm.  Hence  erroneous  a  priori  elevation  information  has 
a  catastrophic  impact  on  classification;  in  such  an  event  it  would  be 
better  to  discard  the  elevation  angle  information  and  assume  that 
elevation  were  unknown,  assuming  there  was  no  other  recourse:  (see  the 
suggestions  for  future  work  in  Chapter  VII). 

6.5  POLARIZATION 

6.5.1  INTRODUCTION 

The  purpose  of  this  experiment  was  to  determine  the  relative 
classification  performance  of  each  polarization;  vertical,  horizontal, 
cross  and  vertical  divided  by  horizontal,  as  a  function  of  aspect  zone 
and  algorithm.  An  elevation  of  27°  was  used  in  this  experiment. 

Corrupting  features  particular  to  the  ionosphere,  such  as  Faraday 
rotation,  were  not  simulated  here.  Also,  the  fact  that  cross 


polarization  may  not  be  practical  in  conjunction  with  ionospheric 
propagation  did  not  preclude  its  investigation. 


It  is  worth  amplifying  the  purpose  of  using  V/H  polarization. 
Returns  for  this  'polarization*  are  produced  by  simply  dividing  the 
vertically  polarized  complex  returns  (Ay,  9y)  by  the  corresponding 
horizontally  polarized  complex  returns  (A^,  fy),  f»e*> 


A 

e 


V/H  =  Av 

1  -  a1’ 

V/H  "  V 


dBm 


(6.1) 


(6.2) 


where  i  is  the  frequency  index. 

In  general,  a  target  scatters  components  of  vertically  and 
horizontally  polarized  electromagnetic  energy  when  illuminated  by 
radiation  of  a  given  polarization  (vertical  or  horizontal).  Since  these 
components  have  the  same  frequency  (and  doppler  shift),  and  are 
scattered  simultaneously,  they  take  the  same  ionospheric  path  and  are 
hence  subject  to  the  same  Ionospheric  distortion.  This  distortion  can 
be  approximately  modeled  as  a  complex  multiplicative  factor.  If  Ay  and 
A?,  are  the  complex  target  returns  at  a  given  frequency,  and  CeJ<*’  is  the 
appropriate  ionospheric  distortion  factor,  then  the  recieved  returns 
are  given  by 
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AH 
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and  the  multiplicative  factor  is  removed.  However,  since  multiplicative 
corruption  was  not  simulated  in  this  experiment,  this  hypothesis  was  not 
tested.  Furthermore,  this  simple  analysis  might  not  adequately  describe 
the  corrupting  nature  of  the  ionospheric  channel,  although  intuitively 
at  least,  one  would  expect  some  reduction  in  multiplicative  factors  by 
this  type  of  operation. 


6.5.2  RESULTS  AND  CONCLUSIONS 


Figure  6.22  shows  a  typical  result  of  classification  performance 
using  various  polarizations  the  remainder  of  which  are  contained  in 
Appendix  A.  Figures  6.23  and  6.24  summarize  the  classification 
performances  at  10  dB  post-processing  SNR  in  terms  of  averages  for  a 
given  parameter.  On  average,  V  polarization  and  X  polarization  rank 
first  (with  about  20%  misclassification  error),  followed  by  V/H 
polarization  (29%)  then  H  polarization  (44%).  At  0°  and  180°,  V 
polarization  and  X  polarization  give  similar  performance,  however  at 
90°,  X  polarization  has  10%  fewer  classification  errors  compared 
with  V  polarization.  V  polarization  and  X  polarization  also  give 
similar  performances  for  all  algorithms  except  A  (relative  amplitude). 
It  is  significant  that  performance  differs  only  when  the  parameters  in 
question  are  particularly  adverse  toward  classification  (i.e.. 
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Figure  6.23.  Average  misclassification  percentage  at  10  dB 

post-processing  SNR  for  various  polarizations  as  a 
function  of  aspect  zone. 
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90°  aspect  zone  or  A).  This  similarity  in  performance  between  V  and  X 
polarizations  might  stem  from  a  combination  of  weaker  scattering  from 
the  tilted  vertical  structures  in  the  first  case,  and  enhanced 
scattering  from  the  tilted  structures  in  the  second  case.  Following 
this  line  of  reasoning,  V  polarization  might  be  expected  to  have  better 
classification  performance  than  X  polarization,  at  zero  degrees 
elevation  angle. 

H  polarization  consistently  exhibits  the  poorest  classification 
performance  and  this  is  particularly  true  at  0°  and  180°  aspect  zones 
where  H  polarization  is  20%  and  30%  worse  than  the  V  polarization 
results.  This  tends  to  reinforce  the  idea  that,  for  bow  and  stern 
aspects,  the  major  scatters  are  vertical  and  that  these  play  a 
significant  role  in  the  classification  process.  H  polarization  exhibits 
its  best  performance  at  90°  aspect,  where  it  has  a  similar 
misclassification  percentage  to  V  polarization  (32%).  At  broadside,  the 
ship's  hull  is  a  long  horizontal  structure,  which  is  a  good  scatterer 
of  horizontally  polarized  energy;  at  stern  and  bow  aspects,  there  are 
few  horizontal  structures  which  may  account  for  H  polarization's 
preference  for  the  90°  aspect  zone.  Data  in  Table  B.l  in  Appendix  B 
support  this  conclusion.  Radar  cross  sections  for  H  polarization 
average  to  about  27  dBm2,  whilst  those  for  V  polarization  average  20  dB 
higher.  At  90°  for  H  polarization,  radar  cross  section  is  about  29 
dBm2,  and  for  bow  and  stern,  radar  cross  section  is  about  26  dBm2. 

X  polarization  has  the  best  all-round  performance.  Although  on 
average  X  and  V  polarization  has  the  same  20%  classification  error,  V 


polarization  is  particularly  affected  at  90°  aspect  zone,  having  an 
error  of  30%,  whereas  X  polarization  stays  at  the  average, 

V/H  polarization  on  average  has  a  misclassification  error  of  about 
30%  which  is  roughly  half  way  between  that  of  V  polarization  and  H 
polarization  (which  intuitively  would  seem  reasonable).  However,  when 
dealing  with  data  from  a  real  system,  we  may  be  able  to  estimate  V/H 
amplitudes  more  accurately  than  V  amplitudes,  assuming  that  it  is 
possible  to  measure  both  the  horizontally  and  vertically  polarized 
components  of  the  scattered  energy.  The  discussion  in  6.5.1  showed  that 
multiplicative  errors,  which  are  characteristic  of  the  ionosphere, 
cancel  (see  Equations  (6.1)  to  (6.5))  when  using  the  V/H  parameter. 

This  same  division  may  also  eliminate  the  need  to  use  a  reference, 

(since  it  would  also  cancel  out).  Hence  the  use  of  V/H  polarization,  as 
opposed  to  say  V  polarization,  according  to  this  analysis,  removes  two 
of  the  major  sources  of  error  in  our  process,  i.e.,  the  ionosphere  and 
the  referencing  system.  This  is,  potentially,  a  very  valuable  feature 
and  the  extent  to  which  these  errors  are  removed  or  reduced  is  a 
potential  subject  of  further  research. 

The  discussion  thus  far  has  concentrated  much  on  the  relative 
performance  of  polarizations  with  respect  to  each  other.  It  is  not  the 
intention  here  to  find  an  optimal  polarization  and  then  build  a  system 
using  it;  the  same  is  true  of  any  of  the  other  parameters  of 
classification.  Indeed,  limitations  In  a  real  sky-wave  radar  system 
might  require  the  use  of  a  particular  polarization,  so  it  is  desirable 
to  know  the  associated  classification  performance  resulting  from  such  a 


restriction 


6.6  ASPECT  ZONE 


6.6.1  INTRODUCTION 

This  experiment  was  designed  to  investigate  how  classification  is 
affected  by  a  particular  aspect  zone.  From  the  above  experiments,  it  is 
evident  that  classification  performance  is  very  dependent  on  the 
azimuthal  orientation  of  the  ship  (i.e.,  aspect  angle).  Furthermore, 
from  the  discussion  in  6.4.2,  it  might  not  be  meaningful  to  do 
classifications  where  the  catalog  contains  data  pertaining  to  ships  at 
widely  varying  aspect  angles  (for  example  0°  and  90°).  Hence,  a 
thorough  investigation  of  classification  performance  at  given  aspect 
angles  is  of  interest. 

An  elevation  angle  of  27°  was  used,  and  classifications  at  the  3 
aspect  zones,  bow,  stern  and  broadside,  were  done  for  each  polarization 
and  algorithm.  A  45°  aspect  zone,  comprising  angles  30°,  45°  and  60° 
was  also  included  for  the  case  of  vertical  polarization. 

Based  on  the  work  of  previous  experiments,  it  was  expected  that  0° 
and  180°  aspect  zones  would  have  similar  classification  performance,  and 
90°  aspect  zone  would  be  worse. 


6.6.2  RESULTS  AND  CONCLUSIONS 

Figures  6.25  and  6.26  show  typical  curves  of  misclassification 
percentage  versus  post-processing  SNR,  the  remainder  of  which  are 
contained  in  Appendix  A.  Figures  6.27  and  6.28  summarize  the  results  of 


this  experiment  in  terms  of  the  average  error  at  10  dB  post-processing 
SNR,  for  various  polarizations  and  algorithms. 

The  initial  expectation  that  classification  performance  at  0° 
aspect  zone  would  be  similar  to  that  at  180°  is  true  in  general;  the 
average  classification  error  at  0°  is  31%,  and  29%  for  180°  (averaged 
across  all  polarizations,  or  algorithms).  However,  in  the  particular 
case,  the  above  is  only  true  for  vertical  polarization,  the 
amplitude-only  (A)  feature,  or  the  time  domain  algorithm.  These  3 
classification  variables  are  generally  the  most  favourable  towards 
achieving  low  misclassification  percentage,  and  0°  aspect  behaves  like 
180°  only  under  these  conditions. 

90°  aspect  zone  exhibits  best  classification  performance,  for  H 
polarization  and  V/H  polarization.  This  is  complimentary  to  the  finding 
of  the  previous  section  where  the  above  polarizations  had  best 
performance  at  90°  aspect  zone.  This  does  not  mean,  however,  that  it  is 
more  advantageous  to  use  H  polarization  if  the  target  is  known  to  be  at 
broadside;  from  Figure  6.27,  we  see  that  either  X  or  V/H  polarization 
are  be  the  most  advantageous. 

For  V/H  and  H  polarizations,  90°  aspect  zone  has  14%  fewer 
classification  errors  on  average,  compared  with  bow  and  stem  aspects. 

For  V  and  X  polarizations,  180°  and  0°  aspect  zones  are  better  than 
broadside  by  an  average  of  about  9%.  Hence  when  averages  are  compiled 
across  polarizations  to  produce  the  figures  used  in  Figure  6.28,  the 
difference  in  performance  between  the  two  pairs  of  polarizations 
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Figure  6.25.  Mlsclassificatlon  percentage  versus  post-processing  SNR 
for  various  aspect  zones  using  vertical  polarization. 
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26.  Misclassiflcatlon  percentage  versus  post-processing  SNR 
for  various  aspect  zones  using  V/H  polarization. 
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Figure  6.27.  Average  misclassification  percentage  at  10  dB  post¬ 
processing  SNR  for  various  aspect  zones,  as  a  function  of 
polarization. 
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Figure  6.28.  Average  misclassification  percentage  at  10  dB  post¬ 
processing  SNR  for  various  aspect  zones,  as  a  function  of 
algorithm. 


(i.e.,  V  and  X,  compared  to  H  and  V/H)  tends  to  enhance  the  performance 
90°  aspect  zone.  (See,  for  example,  the  time  domain  algorithm  averages 
in  Figure  6.28.)  Consequently,  when  examining  the  performance  of 
specific  algorithms  at  various  aspect  zones,  one  should  bear  in  mind  the 
particular  polarization  used. 


6.7  ERROR  IN  ASPECT 

6.7.1  INTRODUCTION 

The  heading  of  a  ship,  and  hence  its  aspect  can  be  found  quite 
accurately  by  simply  plotting  its  position  at  two  instances  of  time. 
Knowing  the  time  interval  and  range  between  the  reference  positions 
allows  the  average  velocity  to  be  calculated,  and  this  in  conjunction 
with  the  doppler  shifts  at  the  two  positions  allows  the  aspect 
measurement  to  be  refined. 

An  error  in  the  aspect  can  be  introduced  when  the  heading  of  a  ship 
is  altered  by  a  sea  current.  Figure  6.29  shows  how  this  may  happen.  A 
ship  traveling  from  Pj  to  ?2  with  velocity  Vs  is  estimated  to  have  an 
apparent  aspect  of  0a.  However,  the  component  of  sea  current  Vc  forces 
the  ship  to  take  an  aspect  of  0a+0e  order  to  travel  in  the  direction 

P1  t0  p2* 

-1  V 
0e  =  tan  c 

Typical  values  for  Vc  and  Vs  might  be  5  and  20  knots,  respectively, 
which  leads  to  an  error  of  9e  =  14°. 
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Figure  6.29.  A  ship  travelling  with  velocity  V5  from  point  to  point 
?2  has  an  apparent  aspect  angle  of  9a  degrees  owing  to  the 
sea  current  having  a  velocity  Vc. 


The  purpose  of  this  experiment  was  to  examine  classification 
performance  as  a  function  of  various  parameters  when  an  aspect  error  is 
introduced.  In  general,  for  a  given  aspect,  a  ±0e  aspect  error  must  be 
considered.  For  0°  aspect  zone,  using  0°  and  10°  aspects,  a  ±10°  error 
was  simulated  by  comparing  0°  noise-contaminated  ship  returns  with  10° 
catalog  ship  returns  and  vice  versa.  At  broadside,  where  3  aspects  were 
used  (80°,  90°  and  100°),  a  ±10°  aspect  error  was  simulated  by  comparing 
80°  and  100°  aspect  noise-contaminated  targets  with  a  90°  catalog,  and 
90°  aspect  noise-contaminated  targets  with  80°  and  100°  catalogs.  This 
represents  performing  an  additional  experiment  for  each  ship  and  this 
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must  be  taken  into  consideration  when  calculating  the  average 
mi sclassifi cation  percentage  for  a  given  SNR. 

This  experiment  was  divided  into  2  parts:  the  first  to  examine  the 
effect  of  different  aspect  errors  near  to  0°  aspect  angle,  and  the 
second  to  examine  the  effect  of  10°  aspect  errors  at  different  aspect 
zones.  Curves  representing  classification  performance  at  0°  and  15° 
using  unknown  aspect  for  each  of  the  parameters  used  in  the  above 
experiments,  were  derived  in  order  to  establish  a  threshold  at  which  it 
would  be  wiser  to  stop  estimating  an  aspect  angle.  An  elevation  angle 
of  27°  was  used  in  all  experiments. 

6.7.2  RESULTS  AND  CONCLUSIONS 

Figures  6.30  to  6.32  show  typical  classification  results  for  these 
experiments,  the  remainder  of  which  are  contained  in  Appendix  A. 

Figures  6.33  and  6.34  show  average  misclassification  percentages  at  10 
dB  post-processing  SNR  for  various  errors  in  aspect  near  to  0°  aspect. 

It  is  clear  that  performance  is  dependent  on  the  particular  polarization 
used.  For  V  and  H  polarizations,  a  ±10°  error  is  roughly  equivalent  to 
saying  that  the  aspect  is  unknown.  Hence  for  aspect  angles  near  to  0° 
which  can  only  be  estimated  with  an  accuracy  of  less  than  ±10°,  it  would 
be  better  to  re-evaluate  the  use  of  a  priori  aspect  angle  information. 
For  X  and  V/H  polarizations  an  error  of  ±10°  aspect  leads  to  a  large 
increase  In  misclassification  percentage  (to  about  60%)  compared  with 
15%  for  V  polarization.  Based  on  the  increase  in  misclassification 
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Figure  6.31.  Misclassificatlon  percentage  versus  post-processing  SNR 
for  various  aspect  errors,  near  to  0°  aspect,  using  cross 
polarization. 
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6.32.  Mlsclasslflcatlon  percentage  versus  post-processing  SNR 
for  an  aspect  error  of  ±10°  at  various  aspect  zones. 


CENTAGE  M  ^CLASSIFICATION  PERCENTAGE 


percentage  (shown  in  brackets)  when  an  aspect  error  of  ±10c  is 
introduced,  the  polarizations  acquire  the  following  ranking 

V(4%)  <  H( 13%)  <  V/H(28%)  <  X(48%)  . 

It  is  evident  that  X  polarization,  which  was  previously  established  as 
having  good  classification  properties,  is  particularly  susceptable  to  an 
error  in  aspect  angle.  Furthermore,  V  polarization  is  the  only 
polarization  with  30%  or  less  misclassification  for  errors  of  *10°  or 
less. 

Establishing  a  ranking  of  algorithms  based  on  the  increase  in 
misclassification  percentage  when  an  error  of  ±10°  is  introduced  yields 

AW (16%)  <  AW (18%)  <  A( 24%)  <  T(39%) 

This  is  the  exact  reverse  order  that  these  algorithms  appear  if  there  is 
no  error  in  aspect.  The  time  domain  algorithm  is  more  affected  by  an 
aspect  error  than  the  other  algorithms.  At  0°  error,  T  has  about  10% 
classification  error  on  average,  which  is  the  same  as  A.  However,  at 
±10°  error  T  has  about  50%  error  compared  with  35%  for  A.  In 
conclusion,  for  the  aspect  zone  of  0°  (bow),  the  parameters  X 
polarization  and  the  time  domain  algorithm,  which  previously  had  good 
records  of  classification  performance,  are  particularly  sensitive  to 
errors  in  aspect  angle. 

Figures  6.35  and  6.36  show  how  a  ±10°  aspect  error  affects 
classification  percentage  at  different  aspect  zones.  Note  that  the 
histogram  bars  represent  the  di fference  between  the  results  of 
classification  at  0°  error  and  classification  at  ±10°  error.  For  X 

120 


A  V 


v-  ""'.v. 

>v-:. 


polarization  it  has  already  been  mentioned  that  classification 


performance  is  significantly  degraded  (by  45%  on  average)  by  the 


introduction  of  a  ±10°  error  at  0°  aspect  zone.  This  is  also  true  of  X 


polarization  for  90°  and  180°  aspect  zones. 


For  the  remaining  polarizations  it  is  also  evident  that  180°  is 


more  affected  by  an  error  of  ±10°  aspect  error  than  is  0°  aspect  zone. 


and  performance  is  poor  (always  above  50%  classification  error) 


irrespective  of  the  polarization.  V/H  and  H  polarization  have  poor 


performance  at  all  aspect  zones  when  a  ±10°  aspect  error  is  introduced; 


typically  misclassification  percentage  is  always  above  50%. 


Generally,  the  time  domain  algorithm  is  most  affected  by  an  aspect 


error  of  ±10°,  especially  at  90°  aspect  zone.  Based  on  the  results,  the 


choice  of  algorithms  to  provide  lowest  misclassification  percentage  at 


0°,  90°  and  180°  aspect  zones  would  be 
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Chen  [1]  also  did  an  analysis  of  the  affect  of  aspect  errors. 


Using  sets  of  ship  data  at  0°,  15°  and  30°  aspects  (vertically 


polarized)  he  compared  the  no-nol se  distances  and  correlation 


coefficients  for  various  ships  and  found  that  about  4  times  out  of  5, 


the  closest  neighbour  to  a  particular  ship  was  the  same  ship  at  a 


V  H  X  V/H 


Figure  6.35.  Average  difference  in  misclassification  percentage  at  10 
dB  post-processing  SNR  between  classifications  having  a  0 
aspect  error  and  classifications  having  a  ±10°  aspect 
error,  at  various  aspect  zones,  as  a  function  of 
polarization. 
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Figure  6.36.  Average  difference  in  misclassification  percentage  at  10 
dB  post-processing  SNR  between  classifications  having  a  0 
aspect  error  and  classifications  having  a  ±10°  aspect 
error,  at  various  aspect  zones,  as  a  function  of 
algorithm. 


different  aspect  angle,  indicating  a  certain  toleration  towards  errors 
in  aspect  angle.  Results  here  would  tend  to  confirm  Chen's  findings  for 
the  particular  case  of  vertical  polarization  and  0°  aspect  zone  (see 
Figure  6.33).  However,  for  other  polarizations  and  aspect  zones, 
classification  was  found  to  be  significantly  degraded  by  the  inclusion 
of  an  aspect  error  of  ±10°.  Also,  the  inclusion  of  added  noise  in  this 
analysis  revealed  a  hitherto  indistinguishable  sensitivity  in  the 
particular  algorithm  (especially  in  the  time  domain  algorithm) 
to  errors  in  aspect  angle. 


CHAPTER  VII 


CONCLUSIONS 


A  series  of  experiments  investigating  the  classification  properties 
of  a  group  of  ships  at  various  azimuthal  and  elevation  angles,  using  a 
variety  of  polarizations,  have  been  performed.  These  experiments,  to  a 
certain  extent,  were  intended  to  represent  classification  based  on  HF 
sky-wave  resonance  radar  returns. 

The  characteristics  and  specifications  of  an  HF  sky-wave  radar 
system  were  discussed.  These  include  the  considerably  longer  range 
(compared  with  ground-wave  porpagatlon)  afforded  by  sky-wave 
propagation,  which  is  attained  at  the  cost  of  contamination  and 
dispersion  by  the  ionosphere.  These  and  other  factors  tend  to  severely 
restrict  the  range  of  operating  frequencies  available  for  classification 
purposes.  The  methods  of  measuring  amplitude  and  phase  returns  and  the 
use  of  a  reference,  such  as  sea-scatter,  for  calibration  of  the  radar 
cross  section  amplitudes  have  been  discussed.  A  technique  using  the 
ratio  of  the  returns  at  vertical  and  horizontal  polarizations  has  been 
suggested  as  a  means  of  obviating  the  need  to  calibrate  with  a  separate 
reference. 
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The  construction  of  a  data  base,  using  radar  backscatter 
measurements  from  scaled-model  ships,  has  been  described.  The  use  of  a 
groundplane  to  simulate  the  surface  of  the  sea  resulted  in  residual  time 
responses  corresponding  to  the  location  of  the  groundplane  edges  in  the 
target's  impulse  response.  Impulse  responses  were  used  to  check  the 
validity  of  calibrations.  The  calibration  process  was  found  to  be  both 
time  consuming  and  intricate,  but  necessarily  so  in  order  to  provide 
representative  data.  The  calibration  and  scaling  proceedures  converted 
measured  ship  amplitude  and  phase  returns  from  2  to  18  GHz  into  scaled 
amplitude  and  phase  returns  from  2  to  7  MHz. 

Various  sources  of  noise  and  errors  have  been  discussed.  Noise  in 
the  context  of  our  classification  experiments  was  defined  as 
post-processing  noise;  the  errors  remaining  after  the  processing  system 
had  done  its  best  to  minimize  the  various  contaminations.  A  need  was 
expressed  to  incorporate  into  the  noise  analysis  a  sufficiently  detailed 
representation  of  the  ionospheric  channel  and  its  associated 
distortions.  No  such  model  was  available  and  in  view  of  this  and  under 
other  considerations,  an  Independent  additive  Gaussian  noise  model  was 
used. 

In  view  of  the  limitations  placed  on  available  operating 
frequencies,  the  2  to  7  MHz  band  was  divided  into  3  equal  sub-bands  of  4 
frequencies  to  Investigate  the  classification  properties  of  each  band. 

In  general,  the  lower  band  (as  expected)  gave  the  lowest  probabilities 
of  misclassicicatlon,  but  in  particular,  the  result  depended  on  the 
parameter  of  interest.  Vertical  and  cross  polarizations  each  showed  a 


marked  difference  of  about  16%  in  misclassification  percentage  between 
the  lower  and  middle  bands,  whereas  horizontal  and  V/H  polarization  had 
an  average  difference  of  about  3%.  The  difference  in  performance 
between  band  1  and  band  3  was  not  great  (always  less  than  20%),  hence  if 
conditions  dictated  the  use  of  higher  frequencies  in  the  2-7  MHz  band, 
then  classification  performance  does  not  suffer  badly. 

The  next  set  of  experiments  served  as  a  comparison  to  previous  work 
done  by  Chen  [1].  In  general  the  results  using  27°  elevation  data,  were 
similar  to  those  of  Chen's  0°  elevation  data.  Increasing  the  number  of 
frequencies  was  found  to  reduce  misclassification  percentage,  but  only 
to  a  limit.  For  example  the  use  of  12  frequencies,  compared  to  8 
frequencies,  yielded  a  1%  improvement  on  average.  The  same  ranking  of 
algorithms  established  in  [1]  was  also  established  here.  For  2 
frequencies  this  was,  in  terms  of  lowest  misclassification  percentage, 
AW<  A  <  W  <  T  and  for  8  frequencies,  T  <  A  <  AW  <  W.  Generally  the 
addition  of  phase  information  (for  example  AW,  or  AW)  was  found  to  be 
more  significant  in  terms  of  improved  classification  performance,  for  a 
lower  number  of  frequencies. 

A  priori  knowledge  of  aspect  angles  provided  a  6%  decrease  in 
misclassification  percentage  (compared  to  assuming  the  aspect  angle  as 
unknown),  which  was  similar  to  Chen's  finding.  In  general,  there  was  a 
small  but  accountable  improvement  of  about  3%  less  misclassification  for 
the  0°  data  compared  to  the  27°  data. 

The  investigation  performed  on  classifications  at  elevation  angles 
of  27°  and  15°,  revealed  that  there  was  a  high  degree  of  similarity 


between  the  results  for  the  two  angles.  A  1.7%  reduction  in 
classification  error  was  established  for  the  15°  elevation  data  over  the 
27°  data;  and  this  low  value  was  representative  of  all  polarizations, 
aspect  zones  and  algorithms.  When  using  a  catalog  containing  data 
relating  to  two  elevation  angles,  a  5%  reduction  in  classification  error 
resulted  when  the  elevation  angle  was  known  a  priori.  This  was 
comparable  to  the  result  for  a  priori  knowledge  of  aspect  angle.  A 
±12°  error  in  elevation  lead  to  a  drastic  degradation  in  classification 
performance;  typically  misclassification  percentage  was  always  worse 
than  65%,  with  some  parameters,  such  as  horizontal  polarization  being 
little  better  than  random  guessing  (i.e.,  5/6  or  88%),  at  80% 
misclassification.  No  one  polarization,  aspect  zone  or  algorithm  showed 
any  particular  immunity  to  the  effects  of  a  ±12°  error  in  elevation. 

Vertical  and  cross  polarizations  were  found  to  have  similar 
classification  properties,  with  about  20%  classification  error  on 
average.  V/H  followed  with  29%,  and  H  polarization  was  consistently 
worst  with  44%  misclassification.  These  results  were  very  much 
dependent  on  the  particular  aspect  zone  used,  with  vertical  and  cross 
polarizations  doing  best  at  0°  and  180°  aspect  zones,  and  horizontal  and 
V/H  polarizations  doing  best  at  90°  aspect  zone. 

V/H  polarization  was  found  to  have  a  performance  lying  between  that 
of  vertical  polarization  and  horizontal  polarization.  However,  the  V/H 
polarized  amplitudes  may,  in  practice,  be  measurable  with  a  higher  degree 
of  accuracy  than  the  vertically  polarized  amplitudes.  This  is  because 
theoretically  at  least,  multiplicative  factors  impressed  by  the 


ionosphere  should  cancel  out.  Also  the  use  of  V/H  polarization  might 
preclude  the  need  to  use  a  reference.  Unfortunately  these  sources  of 
distortion  could  not  be  simulated  here  and  so  a  real  test  of  V/H 
polarization  was  not  performed.  However,  it  was  established  that  the 
diversion  of  amplitudes  in  this  manner  does  not  drastically  reduce  their 
information  content,  otherwise  the  mi scl assi fication  levels  would  have 
been  much  higher. 

The  analysis  of  classification  performance  at  various  aspect  zones 
revealed  a  high  degree  of  dependence  on  the  particular  aspect  zone  (0°, 
90°  or  180°).  The  initial  expectation  that  0°  aspect  zone  would  possess 
similar  classification  properties  to  180°  aspect  zone  was  true  only  for 
vertical  polarization,  the  amplitude  only  feature  (A),  or  the  time 
domain  algorithm.  These  3  classification  variables  generally  were 
found  to  be  the  most  favourable  towards  achieving  low  mi scl assi fication. 
The  behaviour  of  0°  and  180°  aspect  zones  for  other  parameters  differed. 
90°  aspect  zone  favoured  horizontal  and  V/H  polarization.  Its 
apparently  good  performance  for  certain  features,  such  as  AW  in  the 
nearest  neighbour  algorithm,  was  due  to  the  relative  performances  of 
polarizations  at  certain  aspect  angles.  As  a  result  of  this,  the 
performance  at  a  particular  aspect  zone  needed  to  be  judged  with  respect 
to  a  particular  polarization,  and  averaging  across  polarizations  tends 
to  somewhat  obscure  the  analysis. 

Finally,  the  investigation  of  the  effects  of  aspect  errors  revealed 
a  particular  sensitivity  of  some  parameters  to  such  errors.  For  example 
X  polarization  and  the  time  domain  algorithm  both  had  a 
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mi sclassifi cation  percentage  increase  of  more  than  40%  when  a  ±10°  error 
was  introduced.  Vertical  and  horizontal  polarizations  had  error  levels 
of  13%  and  49%  respectively,  which  was  equivalent  to  their  performances 
when  the  aspect  angle  was  assumed  known.  Generally,  the  levels  of 
classification  error,  with  the  exception  of  vertical  polarization,  were 
quite  high  for  a  ±10°  error,  at  all  aspect  zones;  with 
misclassification  levels  of  50%  and  60%  being  common. 

The  above  results  have  illustrated  how  the  classification  of  ships 
is  dependent  on  the  frequencies,  polarizations  aspect  and  elevation 
angles,  and  algorithms  used  in  the  classification  process.  Assuming 
that  no  errors  have  been  made  in  estimating  aspect  and  elevation  angles, 
ship  targets  were  correctly  identified  with  a  probability  ranging 
approximately  from  50%  to  100%,  depending  on  the  prevailing  conditions. 
Furthermore,  the  results  presented  here  for  the  given  catalog  of  ships 
are  an  'upper-bound',  for  a  variety  of  reasons.  Firstly,  in  practice 
there  would  be  a  vast  amount  of  a  priori  information,  such  as  the 
knowledge  of  ship  movements  (perhaps  from  satellite  photography),  which 
could  further  reduce  the  catalog  size.  Estimation  of  the  average 
amplitude  returns  for  a  ship,  in  conjunction  with  aspect  and  elevation 
angle  information,  could  also  allow  further  reduction  of  the  catalog. 

In  these  experiments,  a  ship  was  considered  misclassified  even  if  the 
right  ship  was  chosen  at  the  wrong  aspect  or  elevation  angle;  allowing 
such  a  decision  to  be  considered  as  correct  would  also  reduce  the 
probability  of  making  an  incorrect  decision.  Finally,  there  is 
considerable  potential  for  refining  and  optimizing  the  various 
algorithms  for  classification  (some  suggestions  are  dicussed  below). 


Based  on  the  experience  gained  whilst  performing  the  various 
investigations  of  this  report,  it  is  suggested  that  future  work  be 
directed  in  the  following  areas. 

The  nearest  neighbour  technique  for  classifying  targets  involves 
calculating  the  distances  at  specific  sample  frequencies,  between  the 
test  target  and  a  particular  catalog  reference.  The  square  root  of  the 
sum  of  distances  over  these  frequencies  is  called  'the  distance'  between 
the  unknown  test  target  and  the  noise-free  catalog  member.  This 
distance,  compared  with  other  such  distances  is  used  to  make  a 
classification  decision.  The  following  example  is  designed  to 
demonstrate  how  the  individual  distances,  for  each  frequency,  contain 
useful  information. 

Consider  2  sets  of  arbitrary  distances  between  an  unknown  target, 
(Su),  and  2  catalog  targets,  (Sl,S2). 


Du,l  Du, 2 

fl  3  8 

f  2  2  8 

f3  4  10 

f4  72  10 

Distance  9  6 


On  this  basis,  Su  would  be  classified  as  S2.  Observe  though  that  3 
out  of  the  4  frequencies  suggest  that  Su  is  Si  and  the  fourth  frequency 
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has  biased  the  overall  result  sufficiently  to  change  the  classification. 
Such  a  syndrome  is  representative  of  impulsive  noise,  for  example, 
lightning  discharges  which  affect  HF  radar  returns. 

From  the  above  demonstration,  it  is  clear  that  the  examination  of 
distances  for  individual  frequencies  is  necessary  in  order  to  deal  with 
impulsive  noise.  A  simple  'majority  vote'  system  would  be  one  way  of 
implementing  such  a  proceedure.  However,  the  majority  vote  system  would 
involve  extensive  alterations  to  existing  algorithms  and  software,  and 
presents  a  problem  in  resolving  ties. 

One  way  around  this  problem  would  be  to  identify  the  'rogue' 
distances  on  a  statistical  basis.  For  example,  if  a  distance  was  more 
than,  say,  1  standard  deviation  from  the  mean,  then  it  could  be  set  to 
some  other  value,  perhaps  the  mean  of  the  other  distances.  In  the  above 
example,  the  means  are  20  and  9,  and  the  standard  deviations  are  30  and 
16  respectively.  Hence  all  the  frequncies  of  S2  pass  the  test,  but 
of  Si  has  a  distance  which  is  1.7  standard  deviations  above  the  mean. 
Consequently,  it  is  set  to  3,  the  average  of  the  unaffected  frequencies, 
resulting  in  a  new  total  distance  of  3.5.  Su  is  now  closer  to  SI  than 
S2. 

Research  is  needed  concerning  the  statistical  distribution  of 
individual  target  distances.  The  above  test  works  with  the  arbitrary 
numbers  presented,  but  may  not  do  so  with  more  practical  figures.  It 
would  be  undesirable  to  alter  the  distance  of  a  particular  target  that 
is  not  subject  to  Impulsive  contamination. 


From  the  previous  discussion  it  is  evident  that  information  is 
contained  in  the  actual  values  of  NN  distances  (  and  correspondingly  in 
time  domain  algorithm  correlation  coefficients  ).  This  information 
might  further  be  exploited  to  reduce  the  sort  of  classification  errors 
which  are  encountered  when  errors  are  made  in  the  estimation  of  aspect 
and  elevation  angles.  For  example,  if  the  heading  of  an  unknown  ship, 
Su,  is  measurable  to  within  ±15°,  then  classification  can  proceed 
for  each  of  7  catalogs,  Cj  to  C7,  one  for  the  estimated  aspect  angle  and 
the  others  at  5  degree  Increments  above  and  below  the  estimate.  From 
each  catalog  there  would  be  a  candidate  classification,  Sn  ,  with  a 
corresponding  minimum  distance  (or  maximum  correlation  coefficient),  Dn 
,  for  n  =  1,2,.. .,7.  The  choice  of  a  particular  candidate,  for  the  case 
of  the  NN  algorithm,  would  be  based  on  these  distances.  Average  distance 
in  the  NN  algorithm  is  a  function  of  post-processed  SNR,  hence  if  the 
latter  could  be  estimated  accurately,  the  candidate  classification 
having  a  distance  corresponding  to  the  measured  post-processing  SNR  (for 
a  given  angle)  would  be  chosen. 

Let  Dn ^ q(p)  be  the  distance  (generated  by  the  NN  algorithm) 
between  the  noise-free  returns  of  a  ship,  n,  at  aspect  angle  0,  and  the 
same  returns  contaminated  by  noise  such  that  post-processing  SNR  was  p 
dB.  Assume  for  this  example  that  p  is  10  dB,  and  the  aspect  angle  was 
estimated  at  15°. 
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Where 


)n  =  Distance  between  ships  Su  and  Sn 


Dn  9(10)  =  Distance  between  ships  Sn  and  Sn* 


is  a  noise-contaminated  version  of  Sn. 


The  classification  would  proceed  by  choosing  the  smallest  magnitude 


I  Dn 1 9  -  Dn  j  for  n  =  1,2,**«,7 

9  =  0,5, ••*,30. 

Research  is  needed  to  examine  the  relationship  between 
post-processing  SNR  and  distance  (or  correlation  coefficient),  and  how 
this  varies  with  aspect  and  elevation  angles  and  their  increments. 

Classification  experiments  thus  far  have  produced  misclassification 
percentages  of  between  0  to  50%  for  a  nominal  6  ship  catalog.  In 
practice,  even  with  a  large  amount  of  a  priori  information  a  working 
catalog  size  might  be  in  the  order  of  100  ships  or  more.  As  a  result, 
classification  errors  will  be  higher  because  of  the  greater  chance  that 


the  noise-contaminated  returns  of  an  unknown  ship  would  look  like  the 
noise-free  returns  of  a  catalog  ship. 


Perhaps  one  way  of  addressing  such  a  problem  might  be  to 
investigate  the  classification  proprties  of  'generic'  ship  targets.  The 
term  generic  is  used  here  to  describe  a  set  of  amplitude  and  phase 
returns  representati ve  of  a  group  of  ships.  Hence,  a  catalog  would  not 
contain  the  the  returns  of,  say  30  destroyers,  but  rather  the  'generic' 
returns  of,  say  3  representati ve  destroyers. 

The  generic  forms  could  be  constructed  from  basic  shapes 
representing  what  are  thought  to  be  the  major  scattering  structures 
common  to  a  group  of  targets.  In  a  previous  chapter,  it  was  postulated 
that  vertical  structures,  such  as  masts,  play  a  significant  part  in 
classification  using  vertically  polarized  returns.  The  generic  form 
could  simulate,  to  varying  degrees,  such  structures  and  this  would  help 
establish  the  extent  to  which  the  various  features  of  a  ship  contribute 
to  the  characterisation  of  its  amplitude  and  phase  returns.  In  a  sense, 
such  experiments  would  investigate  the  'resolution'  of  the 
classification  system,  l.e.,  the  degree  to  which  the  system  can 
distinguish  between  similar  targets. 

The  use  of  the  AW  feature  in  the  NN  algorithm  produces  a  hitherto 
unresolved  effect.  Referring  to  Figures  A. 14  and  A. 16,  it  is  evident 
that  for  two  frequencies  the  AW  feature  is  always  better  than  the  A 
feature,  whereas  for  8  frequencies  the  A  feature  is  better  than  the  AW 
feature  above  5  dB  post-processing  SNR.  Intuitively,  one  would  expect 
the  AW  feature  to  be  better  than  the  A  feature  because  it  appears  to 
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contain  more  information  about  a  target  (having  both  amplitudes  and 
phases) . 

This  discrepency  is  probably  a  consequence  of  Chen's  assertion  that 
the  expression  for  normalizing  constant,  K  (  see  Chapter  IV  Section  6,2) 
is  not  optimal.  Since  the  relative  performance  of  the  A  and  AW 
features  seems  to  be  dependent  on  post-processing  SNR,  it  is  likely  that 
a  given  amount  of  noise  contaminates  the  A  features  and  AW  features  to 
different  extents. 

Figure  7.1  shows  the  variation  of  noise-dependent  normalizing 
constant  Kn  with  post-processing  SNR.  Here  the  constant  is  determined 
from  the  variances  of  the  noisy  amplitudes  and  the  noisy  phases,  rather 
than  the  noise-free  ones.  This  figure  shows  that  the  amplitudes  are 
much  more  affected  by  the  addition  of  large  amounts  of  noise  than  the 
differntial  phases,  but  only  slightly  more  affected  for  small  amounts  of 
noise. 

Compared  with  previous  results,  the  use  of  this  noise-dependent 
normalization  constant  results  in  a  slight  improvement  in  classification 
error  of  about  3  to  4%  for  the  AW  feature  at  post-processing  SNRs  of  10 
to  20  dB.  Further  research  might  provide  a  substantially  better 
implementation  of  the  AW  feature. 


*  V/s 


f  VAR  ( A^) 
$  VAR  (Wn) 


NF  *  8 


•  NF *  2 


POST  -  PROCESSING  SNR  (dB) 


Figure  7.1.  Variation  o  normalization  constant,  derived  from  the 
variances  of  the  noise  contaminated  amplitudes  (An)  and 
differential  phases  (Wn) ,  with  post-processing  SNR.  The 
curves  are  representative  of  2  and  8  frequncies  using  the 
AW  fearture  in  the  NN  algorithm,  for  ships  at  0°,90°  and 
180°  aspect  angles  and  27°  elevation  angle. 
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APPENDIX  A 


CLASSIFICATION  RESULTS 


This  appendix  contains  plots  of  misclassification  percentage 
versus  post-processing  signal -to-noise-ratio  for  the  experiments  of 
Chapter  VI.  A  guide  to  interpreting  the  headers  of  these  curves  is 
given  in  Chapter  VI,  Section  6.1.2. 
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Figure  A. 2.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  3  sub-bands  in  the  2-7  MHz 
band. 


.T  .V  .VVV  V-  ■ 


IfO  -  -  o « 


MISCLflSSIFICflTION  PERECNTRGE 

20.  30.  40.  50.  60.  70.  80.  90.  100. 


CLASSIFICATION  OF  SHIPS 
POLARIZATION  V 

ELEV  ASSUMED  KNOWN 

ELEVATION  10EG. )  27 

ASPECT  ASSUMED  KNOWN 

MIN, MAX. INC  ASPECT  0  160 
NO  OF  FREQUENCIES  4  4 

NO  OF  TARGETS  18 

907.  Cl  IC307.)  +  /-  2.57.  2 

CLASS.  FEATURES  A  R 


BAND  1  .  2.0  -  3.2  MHZ 
BAND  2  :  4.0  -  5.2  MHZ 
BAND  3  :  5.8  -  7.0  MHZ 


>x'. 

\W 

\W 

\\\ 

\\\ 

\ 

\  ^ 

\  V*. 

% 

\  \  N 

\\  \ 

\\ 


-20.  -10.  0.  10.  2C .  30. 

POST-PROCESSING  S/N  IN  DB 


Figure  A. 3.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  3  sub-bands  in  the  2-7  MHz 
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Figure  A. 7.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  3  sub-bands  in  the  2-7  MHz 
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Figure  A. 8.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  3  sub-bands  in  the  2-7  MHz 
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Figure  A. 11.  Misciassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  different  numbers  of 
frequencies. 
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Figure  A. 12.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  different  numbers  of 
frequencies. 
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Figure  A. 14.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  different  algorithms. 
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Figure  A. 16.  Miscl assi f ication  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  different  algorithms. 
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Figure  A. 18.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  known  and  unknown  aspect 
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Figure  A. 20.  Misclassificatlon  percentage  versus  post-processing  SNR 
comparing  the  performance  of  known  and  unknown  aspect 
angles. 
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Figure  A. 22.  Misclasslflcation  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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24.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 26.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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27.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 28.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 29.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 30.  Miscl assi fication  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 32.  Mlsclasslflcatlon  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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.33.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 34.  Misclasslflcatlon  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 35.  Misclasslfication  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 36.  Misclasslflcatlon  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 37. 


Mi  sclassifl cation  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 38.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 39.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 40.  Misclassiflcatlon  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 41.  Misclassiflcation  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 42.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 43.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 44.  Misclasslfication  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 46.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 47.  Misclassiflcation  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 48.  Misclasslflcation  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 49. 


Misclasslflcatlon  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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51.  Misclasslfication  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 52.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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53.  Misclassificatlon  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 55.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 56.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 57.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 58. 


Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 59.  Misclassi fication  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 60.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 62.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  elevation  angles. 
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Figure  A. 65.  Misclasslficatlon  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  elevation  angles. 
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Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  polarizations. 
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Figure  A. 77.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  polarizations. 
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Figure  A. 83.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 85.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 87.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 89.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 90.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 91.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 93.  Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 94.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 96 
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.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 97. 


Misclassification  percentage  versus  post-processing  SNR, 
comparing  the  performance  of  various  aspect  zones. 
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99.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A.1U0.  Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 101 
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comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 103. 


Misclassification  percentage  versus  post-processing  SNR 
comparing  the  performance  of  various  aspect  zones. 
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Figure  A. 10b.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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Figure  A. 106. 


Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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Mi scl assi fication  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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Figure  A. 112.  Mi  scl assi f ication  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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Figure  A. 113. 


Misclassi fication  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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Figure  A. 114. 


Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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Figure  A. 115. 
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Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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Figure  A. 117.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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.118.  Mi scl assi f ication  percentage  versus  post-processing 
SNR,  comparing  performance  with  various  aspect  angle 
errors,  near  to  0°  aspect. 
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A. 119.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Figure  A. 120.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Figure  A. 122.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Figure  A. 123.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Figure  A. 124.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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A. 125.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Figure  A. 127.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 


MISCLRSSIFICRTION  PERECNTRGE 

!0.  30.  40.  50.  60.  70.  80.  90.  100. 


CLASSIFICATION  OF  SHIPS 
POLARIZATION  X 


ELEV  ASSUMED 

KNOWN 

ELEVATION  IOEG.) 

27 

ASPECT  ASSUMED 

KNOWN  / 

KNOWN 

MIN, MAX. INC  ASPECT 

0  10  10. 

0  10 

10, 

60  100  10.  170  180 

NO  OF  FREQUENCIES 

6 

NO  OF  TARGETS 

12  12 

18 

12 

907.  Cl  (0307.)  ♦/- 

3.17.  3.17. 

2.57. 

3. 

17. 

CLASS.  FEATURES 

RSW  RSW 

RSW 

RSW 

ASP  ERR  IN  CURVE 

2  3 

4 

Figure  A. 128.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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A. 130.  Mi scl assi f ication  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Figure  A. 131.  Hisclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Misclassification  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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Figure  A. 133.  Misciassiflcation  percentage  versus  post-processing 
SNR,  comparing  performance  with  a  ±  10°  aspect  error 
at  various  aspect  zones. 
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.135.  Misclassiflcatlon  percentage  versus  post-processing 
SNR,  comparing  the  performance  of  various  algorithms 
using  unknown  aspect. 
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Figure  A. 136  Misclassification  percentage  versus  post-processing 
SNR,  comparing  the  performance  of  various  algorithms 
using  unknown  aspect. 
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Figure  A. 137.  Misclassification  percentage  versus  post-processing 
SNR,  comparing  the  performance  of  various  algorithms 
using  unknown  aspect. 


APPENDIX  B 

AMPLITUDE  AND  PHASE  RETURNS 

This  appendix  contains  plots  of  the  amplitudes  and  phases  of 
processed  radar  returns  for  one  ship,  at  3  aspect  angles,  (0°,  90°  and 
180°),  at  21°  elevation  angle,  using  vertical,  horizontal  and  cross 
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APPENDIX  C 


PROGRAMS 

The  source  codes,  written  in  FORTRAN  7,  developed  for  this  research 
are  listed  in  this  appendix.  Program  names  are  CAL61.F0R,  CATLOG.FOR 
and  TAFCAL.FOR  (Time  and  Frequency  Classification  Algorithm).  All 
subroutines  have  been  included,  along  with  LINKING  command  proceedures. 

The  command  proceedure  FILESORT.COM  is  used  to  provide  a  directory 


file  of  file  names  to  be  used  in  conjunction  with  CATLOG 


i 

.v 

r\ 

*>. 


i 


R 


W 

u  1 


>.■ 


C  PROS RAM  NAME  :-  CALB1 

C  THIS  PROGRAM  CALIBRATES  THE  RADAR  CROSS-SECTION  DATA  PROM 

C  MEASUREMENTS  MADE  ON  THE  COMPACT  RADAR  RANGE. 

C  THE  INRJT  UNITS  ARE  IN  OB  AND  DEC  RES 

C 

C  ORIGINALLY  CAL  S3, 

C  MODIFIED  4  APRIL  1S84  BY  N.F.CHAWERLAIN  TO  PERFORM 

C  GATING  IN  THE  TITE  DOMAIN. 

C 

INCLUDE  1 CALCOM.FOR1 
C 

C  Not*  CALCOM.FOR  alwply  provide*  values  for  MD  and  other 

C  dlaenelonlng  varlablea. 

C 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN, FINC  /BLK3/IB 
COMMON  /BLKVNOIM.ANST.AINC 
COMMON  /BLKVARRA,  NRPT 

COMMON  /BLK6/PLOTOPT1 , IP31 , LPL1 , NDIG1 , F» ,  FXE,  FXB ,  FYB ,  FYE,  FY6 
COMMON  /BLK7/PL0T0PT2,  IP32,  LPL2,  NDIG2.T)® ,  TXE,  TXS.TYB,  TYE,  TYS 
INTE6Bt*2  TFILE17J  ,BTFILE(7)  ,CFILE(7)  ,EFILE(7)  .RFILEE16) 

INTBBH»*2  BCFILEI7)  .LINE2130)  , INFILE (7) 

BYTE  LINE1 (60] tLINE3(60) ,BUFF(ID) ,TLINE1 (60) ,TLINE3 180) .STRING (22) 

I NT EG  HI  NSPKTtHO] .NSPKC (MO] 

EQUI VALB4CE  ( LINE1  (1 )  ,BUFF(1 ) ) .  (LINE211 )  .BUFF  (61 ) ) , 

1  ( LINES  (1), BUFF  (121)) 

COMPLEX’S  TA(MO) ,BT(MO) .CAS(MO) ,BC(MO) .EXB(MO) ,RS(5000) 

COMPLEX’S  OB  (MO), TM  (NO) 

DIMENSION  ARRAOO) 

C 

TPI-6. 2831 863 
CMES2. 888E+08 
CFT=8.836E+08 
NP=MD 
C 

C  Inltlallea  control  varlablaa. 

C  ISUP=1  when  SUP  (eat  up  coawand]  la  Invoked. 

C  KRPT  1b  a  counter  ahlch  stops  the  repetition  procaBB 

C  when  NRPT  repetitions  are  done. 

C  NCSUP  Indexes  ARRA(I)  and  Incrawenta  after  each  cob wend. 

C 

KBTP=0 

2021  NCSUP=0 

KRPT=1 
ISUP=0 
TYPE  V  * 

TYPE  ’.'TYPE  «HLP"  TO  PRINT  LIST  OF  COMMANOG' 

2020  IF(ISUP.ED.I)  THBi 

NCSUP=NCSUP+1 

CALL  CSUPEARR, NCSUP, KRPT, IEND,SPAG,KSTP)  I  SUP  control  subroutine 

IF(IEND.ED.I)  GOTO  2B7 
GOTO  3663 
BID  IF 
C 

287  TYPE  288 

288  FORMAT ( 1  COMMAND:  ',•) 


.LT 

* 


289 


ACCEPT  3BB2,AAR 
3862  FORMAT  (A3) 

1233  IF(ARR.H).  '8UP')  THEN 

CALL  &UP(I8UP, ACFN, YDES.WTP,  ALPHA, GWID1 , 6WI02,  DEHOD,  PAG) 
GOTO  2020 
SID  IF 

3363  IFIARR.BD. 'FPL')  TYPE  •,  'TYPE  "CHK,"  BEFORE  ATTB1PTING  FPL' 
IFIARR.ED.  'CAL' )  TYPE  •,  'TYPE  “CHK,"  BEFORE  ATTBIPTING  CAL' 
IFIARR.ED. 1 WRT1 )  TYPE  •,'00  CAL  BEFORE  WRITING  FILE  1 
IFIARR.BD. 'TOM')  TYPE  *,'00  CAL  BEFORE  TItE  DOMAIN  GATE  1 
IFIARR.ED.  'TPL' )  TYPE  •,  'DO  CAL  BEFORE  TI*  DOMAIN  PLOT  1 

1234  IFIARR.BD.  'TAR' )  CALL  TARITA,TFILE,TLINE1  ,TLINE3,NPT, 32020) 
IFIARR.ED.  'BTA' )  CALL  BTAIBT,BTFILE,NFBT, 32020] 

IFIARR.ED. 'BPH')  CALL  6PH (CAS.CFILE, TFILE.TLINE1 ,TLINE3,NPC 

f  ,Cl2020) 

IFIARR.ED.  'BSP')  CALL  BSP[BC,BCFILE,NFBC,&2020) 

IFIARR.ED.  'EXA')  CALL  EXAIEXS, EFILE, NPE,Sl202D) 

IFIARR.ED.' CHK1)  GO  TO  6762 

IFIARR.ED. 1  MIN' )  CALL  WIN(ONIN,TDIST,TO,  A2020) 

IFIARR.ED. 'NLP' )  CALL  HLPIA2020) 

IFIARR.BD. 1 EXI1 )  CALL  EXIT 
TYPE  *,'?• 

GO  TO  2020 
C 

67B2  IF (DWIN .  NE. 0 .AND. FINC. NE. 0 )  THBI 

FIN=FINC*1 .E+OB 
NB=2.*CFT/(FIN*DNIN) 

IF((NS/2)*2.B1.NS)N&=N6+1 
IF (NS. LT.3)NS=3 
ELSE 
NS=0 
BID  IF 
C 

C  I  CHK  enables  tha  checking  of  parameters  to  ba  done  in 

C  another  part  of  tha  program 

C 

ICHK=0 

ICHK2=0 

1019  TYPE  • 

TYPE  *,  'LIST  OF  PARAMETERS 1 
TYPE  3473.TDIST 

3473  F0RMATI1X,/,'  TARGET  OIGTANCE  IN  METERS - >  *,F6.2) 

TYPE  3474, OWIN 

3474  FORMAT  I IX,  'WINDOW  WIDTH  IN  FEET - >  *,F6.2) 

TYPE  3472, NS 

3472  FORMAT  I IX, 'NO.  OF  POINTS  OF  SMOOTHING - >  ',14) 

TYPE  V  ' 

TYPE  •.'PRESENT  INRJT  DATA  FILES'  ’ 

TYPE  3467.TFILE 

3467  FORMAT  I IX, /, '  “TAR.",  TARGET - >  ',7A2) 

TYPE  34SB.BTFILE 

3466  FORMAT  I IX,  '“BTA",  TARGET  BACKGROUND - >  >,7A2) 

TYPE  3468.CFILE 

3469  F0RMATI1X,  "•GPU", CALIBRATION  TARGET - >  ',7A2) 

TYPE  3470,BCFILE 


FORMAT (IX, 1  "BSP", CALIBRATION  TARGET  BACKGROUND- >  \7A2) 

*TVPE  3471.EFILE 

FORMAT (IX,  VEXA", EXACT  CALIBRATION  TARGET - >  ',7A2J 

IF(ICHK.BQ.I)  GOTO  1029 
IFUCHK2.B1.1)  GOTO  3333 

IFIISUP.BQ.1)  THEN 
NCSUP=NCSUP+1 

CALL  CSUP  (ARR,  NCSU  P,  KRPT ,  ZEND,  6PAG ,  KSTP  ] 

IFdENO.  BQ.1  J  GOTO  1022 
GOTO  1023 
BID  IF 

TYPE  288 

ACCEPT  3 862, ARR 

IFIARR.EQ.  'CAL')  GOTO  1032 

IFtARR.EQ.  'HLP' )  THEN 

CALL  HLP 

GOTO  1022 

BID  IF 

IFCARR.Hl.  'CHK' )  THEN 

ICHK2=1 

GOTO  1019 

ICHK2=0 

GOTO  1022 

BIO  IF 

IF(AHH.NE. 'NRT' .AND. ARR. HE. 'TOM' .AND. ARR. NE. 'FPL' )  GOTO  1234 
IFtARR.NE. 'TPL'J  GOTO  1234 
TYPE  ' 

TYPE  •,  'DO  CAL  BEFORE  MRT, FPL.7PL  OR  TW  I  Error  chacki nfl 

GOTO  1022 

IFd8UP.NE.1J  THEN 
TYPE  *, '  1 

TYPE  *, 'TYPE  Y  OR  N  FOR  AUTOMATIC  CALIBRATED  FILE  NAMER' 

TYPE  •, 'FILE  MILL  BE  NAMED  •*•**. CAL' 

ACCEPT  1122, ACFN 
FORMAT  (A1) 

END  IF 

Note  auto  flla  naoer  can  take  directory  praflclee  and  aufflclea 
such  that  the  total  file  nane  Is  2B  chararcters  long. 

IF(ACFN.ED. ' N ' J  THEN 
DO  IN0G=1 ,15 
RFILE(INOG)='  ' 

END  00 
TYPE  •, '  ' 

TYPE  52 

FORMAT(1X,/, '  INWT  A  FILE  NAJC  FOR  THE  RESULT') 

ACCEPT  1 20.RFILE 
00  1  0001  IN0G=15,1,-1 
IF  (RFILE(INOG) .BQ. •  ')  THEN 

GOTO  10001 


IP3=IN06+1 

GOTO  10002 

BID  IF 

CONTINUE 

IP31=IP3 

IP32=IP3 

ELSE 

Automatic  calibrated  file  namer 

IP1=0 

IP2=0 

DO  171  1=1,7 

IF( (TFILE(I ) .AND. 'FFDO'XJ .BQ. '2EOO'X)  IP2=I 
IF( (TFILE(I).AND. 'OOFF'X] .BO. '002E'X)  IP1=I 
CONTINUE 

IF(IPI.NE.O)  THEN 
DO  172  I=1,IP1-1 
RFILEII)=TFILE(I] 

CONTIMJE 
RFILEIIP1  )='  .C1 
RFILEIIP1+1  )=' AL' 

BID  IF 

IFIIP2.NE.0)  THBI 
DO  173  1=1, IP2 
RFILEd  J=TFILE(I ) 

CONTINUE 

RFILEIIP2+1  )  =  ,CA' 

RFILElIP2+2}=' L  ' 

BID  IF 
IP3=0 

IF(IP1+1 . LT.15.AND. IP1  .NE.O)  IP3=IP1+2 
IF(IP2+2.LT.15.AND.IP2.NE.O}  IP3=IP2+3 
IF(IP3.NE.O)  THBI 
DO  174  I=IP3,15 
RFILE(IP3]='  ' 

CONTINUE 

IFdP3.BU.0J  IP3=15 
IP31=IP3 
IP32=IP3 
BID  IF 


TYPE  V  ' 

TYPE  11B.RFILE 
BIO  IF 

FORMAT (IX, 'CALIBRATED  FILENAME 
FORMAT  (15A2) 


1 ,1SA2) 


NPMIN=MINO(NPT,  WBT,  NPC,  NPBC,  NPE) 
IF(NPMIN.LT.I)  NPMIN=NP 
NP=NPMIN 


Remove  background  and  target  distance 
DO  261  1=1 ,NPMIN 


n',v,V  - LV  *. 
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FRBD=[FINC*[FLQATd  )-1 . )  +FMIN)  *1 .  E+08*TPI 
OBd)=lCASd)-BCd))*CMPLX(COS(FRED*TO),8IN[FRBl*TO)) 

TIB  (I  )  =  (TA(I  J-BTtI ) )*CMPLX(CO6(FRBD*T0) ,SIN(FRBD*TO) ) 
IF(CAS(I] .ED.  (0. ,0. )  .AND.BC(I ) .  Bl.  (0.  ,0.  ] )  CW  (I)=C1  .,0.) 
IF(TA(I)  .BD.  (0.,0.)  .AND.BTd )  .HI.  t0.,0. ) )  TIB  (I)  =  (1  .,0. ) 
ZF(I.NE.I)  THEN 

IF(CABS(CI6  (I ))  .ED.  0. ]  06 (I )=CHB (1-1 ) 

IF  [CABS  (TIB  (I ) )  .BQ.O.  ]  TIB  (I  )=TIB  (1-1 ) 

ELSE 

IF(CABS(CI6  (I) )  .ED.O.)  OB  (I  )=(1  .E-15,1  .E-16) 
IF(CABS(TI6(IJJ.HJ.0.J  TIB d)=(1  .E-15,1  .E-15) 

END  IF 

261  CONTINUE 
C 

NREMOV-O 

IFdSUP.NE.1 )  THEN 
TYPE  •, '  • 

TYPE  •, 'REMOVE  INVALID  POINTS  BEFORE  CALIBRATION  ?  Y  OR  N' 
ACCEPT  6844, YDE6 
6844  FORMAT  (A1 ) 

END  IF 

IFlYDES.BD.  'Y'J  THBI 
TYPE  ", '  • 

TYPE  *, 'POINT  REMOVAL  FROM  TARGET-BACKGROUND  TERM' 

NRMT=0 

IFtTIfi (1) .NE. (1.,0.))  CALL  CREMOVEITIB, NPMIN, NRMT.NSPKT.FINC) 
TYPE  ' 

TYPE  \  'POINT  RBBVAL  FROM  CALIBRATION  TARGET-BACKGROUND  TBIM 
NRMC=0 

IF  (06  (1 ) .NE. (1 .,0.] )  CALL  CREMOVEICMB, NPMIN, NRMC,NSPKC,FINC) 
NREM0V=NRMT +NRMC 

C  TYPE  *,  'DO  YOU  WANT  TO  RE-00  THE  POINT  RBOVAL  Y  OR  N' 

C  ACCEPT  6844,  YOB 

C  IFIYDES.BD. 'Y'J  GO  TO  711 

END  IF 
C 

TYPE  •,'  ' 

TYPE  •.'CALIBRATING  DATA' 

IFIDMIN. ED. D. )  GO  TO  1314 
IF(CMB (1) .NE. [1 .,0. } )  CALL  HAMM (CIB, NPMIN, NS) 

IF(TI6(1 )  .NE.  (1 . ,0. ] }  CALL  HAMMtTIB, NPMIN, NS) 

1314  00  262  1=1 , NPMIN 

IF(CABS(EXS(I ) ) .ED.O. )  EXBd )=(1.,0. J 
RSd  )=TIB  (I  J/CIB  (I  )*EXS(I  J 

262  CONTINUE 
C 

C  FIND  THE  LOCATION  OF  THE  PERIOD  IN  ,THE  INPUT  FILE  NAMES 

C 

00  113  1=1,6 

I F ( (TFILEII ) .AND. ’FFOO'X) .EQ. '2E00'X)  JTDOT=I 
IF  ( (TFILEd)  .AND.  'OOFF'Xl.ED.  '002E'X)  JTDOT=I 
IFdBTFILE(I). AND. 'FFOO'X). ED.  >2E00'X)  JBTDOT=I 
IFdBTFILE(I). AND. 'OOFF'Xl.ED.  '002E'X)  JBTDOT=I 
IFUCFILEd). AND.  'FFOO'X). ED.  '2E00'X)  JCOOT=I 
IF((CFILE(I).AND. 'OOFF'Xl.ED. <002E'X)  JCDOT=I 


IF ( [BCFILEfI )  .AND. 1  FFOO'X)  .62.  '2E00'XJ  JBCDOT=I 
IF ( (BCFILE ( I ) . AND.  'OOFF'X) .BO.  '002E'X)  JBCDOT=I 
IFC  [EFILECU  .AND.  'FFOO'X)  .EQ.  '2E00'X)  JEDOT=I 
IFUEFILE(I). AND.  'OOFF'X). EB.  'Q02E'X)  JEDOT=I 
113  CONTINUE 
JT=JTCOT-3 
JBT=JBTD0T-3 
JC=JCDOT-3 
JBC=>JB  COOT-3 
JE=JEOOT-3 
IFJJT.LT.1)  JT=1 
IFIJBT.LT. 1 )  JBT=1 
IFlJC.LT.1 )  JC=1 
IF(JBC.LT.I)  JBC=1 
IFlJE.LT.1 )  JE=1 
LINE2(4)='  ' 

LINE2(8)='  ' 

LINE2t12)='  1 

UNE2(16)='  1 

DO  2865  1=20,30 
2865  LINE2[I)='  1 

C 

C  STORE  TOE  1ST  6  CHARACTERS  BEFORE  TOE  PERIOD  IN 

C  EACH  OF  THE  INPUT  DATA  SET  NAMES 

C 

DO  478  1=1,3 
LINE2(I)=TFILE(JT-1+I) 

LINE2 [1+4)  =6TFILE  ( JBT-1+I ) 

LINE2 ( 1+8) =CFILE( JC-1 +1 ) 

LINE2  [  1+1 2 )  =8CFILE  C  JBC-1  +1 ) 

LINE2 l 1+16 ) =EFILE IJE-1 +1 ) 

478  CONTINUE 

00  2348  1=1,60 
LINE1 (I J=TLINE1 (I) 

2348  LINE3(I]=TLINE3(I) 

C 

C  PUT  TAR6ET  DISTANCE  AND  WINDOW  WIDTH  ANO  PONTS  REMOVED 

C  IN  3RD  LINE  OF  HEADER 

C 

ENCODE  f 22, 1 06 ,  STRING  JTDIST,  OWIN,  NREHOV 
10B  FORMAT) 1  TD=',F4.1,'  *=',F4.1,'  Pft=\I2,X) 

DO  727  NSTRE=1 ,15 

727  BUFF  ( 1 81 -NSTR6 )  =BUFF  ( 1 BO-NBTRG  ] 

DO  728  NSTRG=1 ,22 

728  BUFF(144+NSTRG)=STRINGINSTRG) 

C 

1051  IF(ISUP.m.l)  TOBI 

NCSU  P=NCSU  P+1 

CALL  CSUPtARR, NCSUP, KRPT, IEND,SPAG, KSTP) 

IF(IEND.EG.I)  GOTO  18B1 
GOTO  1052 
BID  IF 


1881  TYPE  288 

ACCEPT  3BB2.ARR 


c 

C  Hare  begins  the  nm  order  of  poet-calibration  options 

C 

1052  if  (AflR.m.  'wrt1)  then 
TYPE  ' 

TYPE  \ 'WRITING  FILE' 

CALL  WRTFLEtRFILE,  RS) 

IFIKSTP.BD.O)  THBI 

GOTO  2020 

ELSE 

60TD  1051 
BID  IF 
END  IF 
C 

IF  (ARR.BD. 'TOW' )  THEN  t  Ties  doaaln  elndoe 

ITPL=0 

CALL  TDWCINFILE, RS, NPMIN, ITPL, ISUP, 6WI01 , GWID2, WTP, ALPHA, DEMO D, SPA G 
A, PAG] 

END  IF 
C 

IF  (ARR.E&.  'FPL' )  THEN  I  Frequency  plot 

NDIM=NP 

ANST=FMIN*1 000 . 

AINC=NINT (FINC*1000. ] 

CALL  APPIRFILE, RS, SPAG,  PAG ) 

END  IF 
C 

IF  (ARR.EB. 'TPL'J  THEN  I  Ties  plot 

ITPL=1 

CALL  TONIRFILE, RS, NPMIN, ITPL, ISUP, GWID1 ,GWID2, WTP, ALPHA, DEMDD, SPAG, PAG) 
C 

C  Note  TPL  ubbe  a  Modified  vaelon  of  TOW  to  achieve  a  plot 

C 

ITPL=0 
END  IF 
C 

IF  (ARR.BD.  'CHK' )  THBI 
ICHK=1 
GOTO  1019 
1029  ICHK=0 
BIO  IF 
C 

IF  (ARR.BD.  'HLP'J  THBI 
CALL  HLP 
END  IF 
C 

IF  (ARR.BD.  'TOW'. OR. ARR.BD.  'FPL' .OR.ARR.BD.  'CHK'J  GOTO  1051 
IF  (ARR.BB.  'TPL')  GOTO  1051 

IF  IARR.GQ.  'WIN'.OR.ARR.Bl.  1 EXA' .OR.ARR.  HI.  'EXI'J  GOTO  1234 
IF  (ARR.EQ. 'TAR'. OR.ARR. ED. 'BTA'. OR. ARR.m.'SW)  GOTO  1234 
IF  (ARR.BQ.  'BSP')  GOTO  1234 
IF  (ARR.BD.  'SUP')  THEN 
TYPE  5598 

5599  FORMAT (IX, ' Y  OR  N  FOR  NEW  SET  UP  ',*) 

ACCEPT  5588,NEW_SUP 


FORMAT (A1 ) 

iF{Na»_aiP.ai.  ■  v j  t 
IENM) 

GOTO  1233 
BJD  IF 
TYPE  *, '  • 

TYPE  6677 

FQRMATdX,  'TYPE  MJWa  OF  REPETITIONS  * ,») 

ACCEPT  *,NRPT 
NC6UP=0 
KSTP  =0 
KRPT  =1 
IEND  =0 
IflUP  =1 
GOTO  2020 
END  IF 

TYPE  *,*?' 

GOTO  1061 
END 

SUBROUTINE  RDFLEIINFILE, CA] 

INCLUDE  'CALCOM.FOR1 

COMMON  /BLK1/BUFF  /BLK2/NP,  FMIN,  FINC  /BLK3/IB 
INTE6a*2  INFILE17) 

REAL *4  AP(JD) ,A(MO),P(MO) 

BYTE  BUFF  (ID]  ,TBUFF(51 2) 

EQUIVALBICE  (BUFF(3B1)  ,AP(1J) 

COMPLEX'S  CAIRO) 

INCLUDE  1  SYS (LIB  RAH Y : FO  RIOSDEF 1 

INFILE (7 )=0 

IB=1 

ICNT=0 

OPEN (UNIT=B, NAME=INFILE, REAOONL Y, TYPE* ’ OLD ' , IOSTAT=IERR,  B»R=B1 00) 

IF  (IB .  Bl.  1 )  La=61 2-8*4 

IF  (IB .  ST.  1 )  LB»=61 2-2S*4 

READ  (6,  80,  aD=BO)  (TBUFFd ),  1*1 ,61 2} 

FORMAT  ( 61 2A1 ) 

DO  86  1=1,  LBH 
BUFF  (ICNT+I  )=TBUFF(I) 

IB=IB+1 

ICNT=ICNT+La 

GO  TO  82 

DO  B6  1=1,  La 

BUFF(ICNT+I)=TBUFF[I] 

DO  40  1=1,180 
BUFF (I )  *6UFF ( 2*1-1 ] 

TYPE  1882,  (BUFF(I),  1=1, 100) 

FORMAT  (IX,  60A1 ) 

CALL  OCOE 
PI=4.*ATAN(1.) 

00  1  88  N(M,NP 

ATMP=1 0** ( AP ( 2*NN-1 1/20.) 

PTMP=AP 1 2*NN)/1 80 . *PI 

CA INN) =CMPLX(ATMP*C0S (PTMP) , ATMP*SIN(PTMP) ) 


60  TO  8017 

8100  IFdERR.ED.  F0RII0S_FILN0TF0U  JTHEN 
TYPE  1112,(INFILE(IIT),HT=1,B) 

1112  FORMAT t 1  FILE  :  ',6A2,'  HAS  NOT  FOUND* ,/, '  BITER  FILENAME  AGAIN* ) 
ELSE  IF  (IERR.BB.F0R*I06_FILNAM6PE)THEN 
TYPE  1110,dNFILE(IIT),IIT=1,B) 

1110  FORMAT [ 1  FILE  :  *,6A2,'  HAS  BAD,  B1TB1  NEW  FILENAME* ) 

ELSE 

TYPE  *, *  UNRECOVERABLE  ERROR,  CODE  =',IERR 
STOP 
BIDIF 

ACCEPT  8818,  (INFILEdXT)  ,IIT=1 ,6) 

8816  F0RMAT(6A2) 

GO  TO  810 

8017  CL06E (UNITES, DISPc* SAVE') 

RETURN 
BIO 
C 
C 
C 
C 
C 

SUBROUTINE  HRTFLEtflFILE.CA,*) 

INCLUDE  *  CAL  COM.  FOR* 

COMMON  /BLK1/BUFF  /BLK2/NP,  FMIN,  FINC  /BLK3/IB 
COMPLEX* 8  CA(SOOO) 

BYTE  LINE1  (60) ,  LINE2(60) ,  LINES  I  GO)  ,BUFF(ID)  ,TBUFF(B1  2) 

CHARACTERS  YN 
REAL *4  AP(JO) 

INTEGER*2  RFILE(16J 

EQUIVALENCE  (LINE1  (1)  ,BUFF(1 ) ) ,  (LINE2M ) , BUFF  (61 ) ) , 

1 ( LINES ( 1 ) ,BUFF ( 1 21 } ] , ( AP ( 1 ) , BUFF ( 381 ) ) 

W=IB*256 
IBS=IB 
RFIL£(15)=0 
PI=4.*ATAN(1.) 

DO  210  1=1,  NP 

AP  ( 2*  I )  =AT  AN2  ( A I  MAG  ( CA  ( I )  ] ,  REAL  ( CA  ( I ) ) ) /PI  *1  BO . 

210  AP  (2*1-1  )=20.*AL0610(CABS(CA(1) ) ) 

C  TYPE  *,  *00  YOU  HANT  TO  EDIT  THE  HEADER  7  Y  OR  N* 

C  ACCEPT  111 , YN 

111  FORMAT (A1 ) 

IFIYN.NE. '  Y*  )G0  TO  122 
TYPE  112 

112  FORMAT  ( IX, /, '  INRJT  A  HEADER  FOR  THE  RESULT  (  1  LINE)') 

ACCEPT  128, (LINE1 (I) , 1=1 ,60) 

128  FORMAT  (60A1) 

1 22  OPEN  ( UNIT=1 8,  NAME=RFILE,  TYPE=  *  NEW  * ,  REC0R06IZ  E=W ) 

IB=1 
ICNT=0 

DO  40  1=180,1,-1 
40  BUFF(2*I-1 )=BUFF(I) 

62  IF  (16.  ED.  1  )LBt=51 2-8*4 

IF  ( IB .  GT .  1 )  LBI=61 2-26  •  4 
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“*  -V-.-  •  - 

^  --  ' 


i 


00  BE  1=1,  La 

BE  TBUFFII  }=UUFFIICHT+I) 

IB=IB+1 

ICNT=ICNT+LBI 

WRITE (1 B, 81 )  ITBUFF II) ,  1=1 , 51 2) 

81  FORMAT1512A1 ) 

IFIIB.LE.IBSIGO  TO  82 
80  CLOSE  IUWIT=1 8,  DIS^' SAVE1  ] 

RE1URN1 

BIO 

C 

c 

c 

c 

SUBROUTINE  OCOE 
INCLUDE  1  CAL COM. FOR' 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN,  FINC  /BLK3/IB 
BYTE  BUFF  (ID) 

INTEGffl*4  IMIN,IINC,NP 
C 

C  NO.  OF  DATA  POINTS  IS  STORED  IN  THREE  CHARACTERS,  AND 

C  STARTING  FREQ.  AND  FRED.  INC.  IN  6  CHARACTERS 

C 

CHAHACTB4*4  CNL 
CHARACTER'S  CFF.CINC 

EOUIVALBICE  [BUFF  [123)  ,CNL) ,  (BUFF1131 )  ,CFF) ,  (BUFF1140)  ,CINC) 
C 

C  CONVBIT  CHARACTERS  TO  THEIR  NUMERICAL  B1UIVELENTS 

C 

IFIBUFF1123) .ED. '=' 1  BUFF(123}='  • 

DECODE [4,1 00, CNL )NPP 
NAMING  (NP.NPP) 

100  FORMAT  (15) 

OE  CODE  (5, 100,  OFF)  I  MIN 
DECODE  (5, 100,  CINCH  INC 
FMIN=FL0AT(IMIN)/1000. 

FINOFLQATt  I  INC  1/1000. 

RETURN 

BIO 

C 

C  MTOTAL  NO.  OF  POINT 

C  N=NO.  OF  POINTS  OF  SMOOTHING 

C 

SUBROUTINE  HAMM(CS,K,N) 

INaUDE  'CAL COM. FOR' 

COMMON  /BUI/BUFF  /BLK2/NP,  FMIN,  FINC  /BLK3/IB 

COMPLEX  CS[MD),CSS(MO), SUM, FACT 

DTR=57 .28677868 

TPI  =8.2831863 

N2=(N-1 1/2 

00  3  WM,K 

8U1M=CMPLX(0.,0.) 

K0UNT=1 

2  KM=KM-N2+KDUNT-1 

OFF=f  LOAT ( KM-KWl *TPI/FLOAT(N) 


1 


J 


1 
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IF(Of.LT.I)  W*2-K* 
IF(KM.6T.K)  »t=2  *  1C  -  KM 
I^OOS  10FF3+1 . 
FACT-wcsitan 

SUH=SUM+FACT 

IF(KOUNT.EB.N)  GO  TO  1 

KOUNT=KOUNT+1 

GO  TO  2 

CONTINUE 

BUM=BUK/FLQAT(N) 

CSS(KM}=GUM 

CONTINUE 

DO  6  KH=1,K 

CS(KM)=CSS(KM] 

CONTINUE 

RETURN 

END 


GUBROUTINE  TAR (TA, TFILE, TLINE1  ,TLIN£3,NPT,«) 

INCLUDE  1  CAL COM. FOR' 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN, FINC  /BLK3/IB 
COMPLEX  TA(MO) 

INTBGBt*2  TFILE(7) 

BYTE  LINE1 (60) ,LINE3(60] ,BUFF(IO) .TLINE1 (60) ,TLINE3(60) 
EQUIVALENCE ( LINE1  ( 1  ]  .BUFF ( 1 ) ) ,  l  LINE3 ( 1 )  .BUFF (1 21 ) ) 
FORMATdX,/,'  INPUT  THE  TARGET  FILE  NAME') 

TYPE  10 

ACCEPT  120, (TFILE(IIN) , IIN=1 ,7) 

FORMATI7A2] 

CALL  RDFLEITFILE,  TA) 

NPT-NP 

DO  2346  1*1 ,60 
TLINE1 ( I ) =LINE1 ( I ) 

TLINE3 (I )*LINE3 (I ) 

RETURN1 

BID 


GUBROUTINE  BTA(BT,BTFILE,NreT,*) 

INaUDE  '  CAL  COM.  FOR' 

COMMON  /BLK1/BUFF  /BLK2/NP,  FMIN, FINC  /BLK3/IB 
COMPLEX  BT(MD) 

INTBGER*2  BTFILE17) 

BYTE  BUFF  (ID) 

TYPE  20 

FORMATdX,/, 1  INFUT  THE  BACKGROUND  FILE  NA«  FOR  THE  TARGET') 
ACCEPT  1 20, (BTFILE(IIN) , IIN=1 ,7) 

FORMAT  (7A2) 

CALL  ROFLE(BTFILE.BT) 

NFBT*NP 


RETURN1 

BID 


C 

C 

C 

C 

SUBROUTINE  SPH  (CAS,  CFILE,  TFILE,  TLINE1 , TLINE3 , NPC,  *) 
INCLUDE  'CAL CON. FOR' 

COMMON  /BLK1/BUFF  /BLK2ZNP,  FMIN,  FINC  /BLK3/IB 
COMPLEX  CAStMD) 

INTEGBR*2  CFILE [7)  ,TFILE(7] 

BYTE  LINE1 (60) ,LINE3(60J .BUFFIID) ,TLINE1 (60) ,TLINE31B0) 
BGUIVALBUCE  (LINE1  (1 )  .BUFF  ( 1 J ) ,  ( LINES  1 1 )  .BUFF  11 21 ) ) 

TYPE  40 

40  FORMATtlX,/, 1  INAJT  THE  CALIBRATION  TARGET  FILE  NAME1) 
ACCEPT  120, (CFILE(IIN) , IIM=1 ,7) 

120  F0RMAT(7A2) 

CALL  RDFLE [CFILE, CAS) 

NPONP 
DO  4  1=1 ,7 

IF(TFILE(I].NE.O)  RETURN1 
4  CONTINUE 

DO  2346  1=1,60 
TLINE1 (I J=LINE1 (I) 

2346  TLINE3 ( I I=LINE3 ( I ) 

RETURN1 

END 

C 

C 

C 

C 

SUBROUTINE  BSP(BC,BCFILE,NPBC,») 

INCLUDE  'CAL COM. FOR' 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN, FINC  /BLK3/IB 
COMPLEX  BC(MD] 

INTEGBJ*2  BCFILEI7) 

BYTE  BUFF  (ID  J 
TYPE  41 

41  FORMAT!  IX,/, 1  INHJT  THE  BACKGROUND  FILE  NACE  FDR  THE 
$  CALIBRATION  TARGET') 

ACCEPT  120, (BCFILE(IIN) ,IIN=1 ,7) 

120  FORMAT  (7A2) 

CALL  R0FLE(BCFILE,6C) 

NPBONP 

RETURN1 

END 

C 

C 

c 

c 

SUBROUTINE  EXAIEXS, EFILE, NPE, •) 

INCLUDE  'CAL COM. FOR' 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN, FINC  /BLK3/IB 
COMPLEX  EXS(MD) 

INTEGB)*2  EFILE (7) 


i 


H 

I 


i 


i 


►  ■, 
K'> 


A 


BYTE  BUFF (IDJ 
TYPE  BO 

SO  FORMATMX,/,'  INFUT  THE  EXACT  CALIBRATION  FILE  NA*') 

ACCEPT  120, (EFILE(IIN) , IIN=1 ,7) 

120  FORMAT  (7A2) 

CALL  ROFLE(EFILE,EXS) 

NPE=NP 

RETURN1 

END 

C 

C 

c 

c 

SUBROUTINE  WIN(OWIN,TDIST,TO,*) 

CME=2.998E+0B 
CFT=9. 836E+0B 
C 

C  CONFUTE  TIFC  SHIFT  IN  DATA  TO  CENT®  IT  OVER  THE  HAMMING  WINDOW 

C  TDIST=DI  STANCE  TO  TARGET  IN  METERS 

C 

TYPE  •,  'ENT®  ONE  WAY  DISTANCE  TO  TARGET  IN  FCTERS1 
TYPE  V  DUAL  AEL  HORNS* 

TYPE  *,  *0V®  &  UNDER  PRIOR  JULY  4,  1983  «=  12.1  (ET®S' 

TYPE  *,'0V®  &  UNO®  AFT®  JULY  4,  18B3  =  11.8  MET®S> 

TYPE  *, 'SIDE  BY  SIDE  AR®  JULY  4,  1BB3  =  11. B  NET®S* 

ACCER  *,  TOIST 
T0=2*TDIST/CME 
C 

C  COMPUTE  HAMMING  WINDOW  SIZE,  (FEET,  SECONDS) 

C 

TYPE  *,  *®T®  3DB  DOWN  HAMMING  WINDOW  SIZE  IN  FEET1 
TYPE  •, 1  ENT®  0  FOR  NO  HAMMING  WINDOW’ 

ACCER  *,OWIN 
RETURN1 
®D 
C 
C 
C 
C 

SUBROUTINE  TDWdNFILE, RS, NPMIN, ITPL, ISUP, 6WID1  ,SWID2,WTP, ALPHA, DEMOD 
*,SPAG,PAG) 

INCLUDE  'CAL COM. FOR' 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN, FINC  /BLK3/IB 
COMMON  /BLKVNDIM,  ANST,AINC 
COMPLEX’S  RS(BOOO) 

REAL*4  AM(SOOO) , PH (5000) 

INTEG®*2  INFILE(IB) 

C 

IF  (ITPL.BD.1i  GOTO  8014  I  For  plotting 

IF  (ISUP. NE.1  .OR.  (GWID1  .ED.O.O. AND. GW1D2.EQ.0.0) )  TH® 

TYPE  *, '  * 

TYPE  *, 'TYPE  STARTING  AND  END  POINTS  FOR  WINDOW' 

ACCER  *,GWI01 , 6WID2 
END  IF 
C 


£ 

$ 

£ 


301 


C  Calculate  the  number  of  points  In  time  doaaln  filter 

C 

NT0PTS1=NINT (GWI01*4.096*NINT (FINC*1000. ) ) 
NTDPTS2=NINT(6MID2*4.096*NINT(FINC*1000. ) ) 

NTDPTS=NTDPTS2+NTDPTS1 
TYPE  •, '  ' 

TYPE  *,'141*®  OF  POINTS  IN  TI1C  DOMAIN  FILTER  '.NTOPTS 
C 

C  Convert  froa  COMPLEX  l  x,y]  to  AMPLITUDEIdB)  end  PHASE  (deg) 

C  for  compatlbl lity  alth  FTRAN  aodules. 

C 

9014  00  9015  I=1,NPMIN 
AM ( I ) =20 . *AL0G1 0 l CABS t RS (IJ JJ 
PHlI)=ATAN2D[AIMAGlRStI)),REAL(RS(I)J) 

9015  CONTIMJE 
IF  (ITPL.BB.1)  THEN 
CALL  FNN(AM.PH) 

BID  IF 

CALL  I  FT  (AM,  PH,  ISUP,  DEMOD) 

IF  (ITPL.Sa.1J  THEN 
CALL  HPLl INFILE, AM, SPAG, PAG) 

END  IF 

IF  (ITPL.Ga.1)  GOTO  9017 

CALL  GAT(AM,PH,NTOPTS1,NTOPTS2,I8UP,WTP,ALB1A) 

9016  CALL  FFTIAM.FH,  JNOIM,  INFILE] 

NDIMhINOIM 

C 

C  Convert  dete  beck  Into  complex  fora  and  raaove  0-FMIN 

C  'fill-up'  data  points  ahlch  will  bbbb  up  plots 

C 

DO  9029  I=1,(NDIM-IFIX(FMIN»100.)J 
K=IFIX(FMIN»100.)+I 

RS (IJ =CMPLX ( COS D ( PH ( K ] ] , SIND { PH l X J ) ) • ( 1 0** l AM ( K ) /20 . )) 

9029  CONTINUE 

C 

C  Reset  data  paraaeters  after  tlae  plot  becBuse  foraard 

C  transfora  Is  not  perforaed.  (Foraard  transforming  Is  unnecessary 

C  Indeed  useless  as  alndoa  all l  appear  In  f.  data  and  ae  have  the 

C  original  f.  file  anyaay. 

C 

9017  ITPL=0 
NDIM=NP 

ANST=FMIN*10Q0. 

AINC=NINT (FINC’IDOO. ) 

RETURN 

END 

C 

SUBROUTINE  SUPCISUP.ACFN, YDB.MTP, ALWA,  GWID1  .GWID2.0EM0D,  PAG] 

COMMON  /8LK5/ARRA,  NRPT 

COMMON  /BLKfi/PLOTO  PT1.IP31.LPL1,  NDIG1 ,  FW ,  FXE ,  FXS ,  FYB ,  FYE,  FYS 
COMMON  /BLK7/PL0T0  PTE , IP32.LPL2, NDIG2 , VQ . TXE . TXS , TYB , TYE, TYS 
DIMENSION  ARRAOO)  I  This  array  cotalne  the  commands. 

ISUP=1  1  Go  Into  set-up  aode 

NA=1  I  Command  number 

TYPE  53, NA 


I  Knoan  as  MIN  In  FTRAN 
I  Changed  to  avoid 
I  aultldeclaratlons 

I  RPL  In  FTRAN 


I  GAT  In  FTRAN 
I  FFT  In  FTRAN 
I  Unnecessary  ? 
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FORMAT  MX, 'COMMAND:  ',12, 1  ',*) 

ACCEPT  55, AR RAIMA) 

FORMAT  (A3) 

CALL  ESUPIAARA,  NA,  IESUP) 

IFdESUP.  BD.1 )  GOTO  51 
IF(ARRA(NA).BD. 'END')  GOTO  57 
IF(ARRA(NA).BD. ' RPT ' )  THEN  I 

TYPE  ' 

TYPE  58 

FORMAT  MX, 'TYPE  NUffiER  OF  REPETITIONS  ',») 

ACCEPT  *,NRPT 

GOTO  57 

END  IF 

NA=NA+1 

GOTO  51 

Input  a  sales  of  control  paraetars 


TYPE  *, '  1 
TYPE  61 

FORMAT  MX, '  Y  OR  N  FOR  AUTO  FILE  NA)C  ' ,») 

ACCEPT  62 , ACFN 
FORMAT  (A1 } 

TYPE  63 

FORMATMX,  'Y  OR  N  FOR  BAD  POINT  RBOVAL  ',*) 

ACCEPT  62, YDES 
TYPE  69 

FORMATMX,  'Y  OR  N  FOR  FREQ. GREATS)  THAN  20  GHZ  ',•) 
ACCEPT  62, DEMOO 
TYPE  71 

FORMATMX, 'Y  OR  N  FOR  PLOT  AGAIN  OPTION  ',$) 

ACCEPT  62, PAG 
TYPE  66 

FORMATMX,  'Y  OR  N  FOR  PLOT  SET-UP  IN  FPL  ’,») 

ACCEPT  62.PL0T0FT1 
TYPE  7712 

FORMATMX,  'Y  OR  N  FOR  PLOT  SET-UP  IN  TPL  ',*) 

ACCEPT  62, PLOTS PT2 
IFIPL0TDFT1  .HI.  1 Y' )  THEN 
TYPE*,'  FPL  PARAMETERS' 

TYPE  7700 

FORMATMX, 'Y  OR  N  FOR  ANOTHER  PLOT  ON  OLD  ONE  ',•) 
ACCEPT  62.LPL1 
TYPE  7702 

FORMATMX,  'INRIT  NO.  OF  DIGITS  RIGHT  OF  .XXX  ',») 
ACCEPT  *, NDIG1 
TYPE  7704 

FORMATMX, 'INPUT  MIN, MAX, INC  FRBDUBICY  ',*) 

ACCEPT  * ,  F)® ,  FXE ,  FXS 
TYPE  7706 

FORMATMX, 'INPUT  MIN, MAX, INC  FRED.  AMPLITUDE  ',*) 
ACCEPT  *,FYB,FYE,FYS 
BID  IF 

IF(PL0T0PT2.ai. 'Y')  THEN 
TYPE  V  TPL  PAR  ASTERS' 


I  Ellainete  bad  coaeands 


I  Repeat  a  section  of  cotmende 


I  For  NRPT  tiaaa 


memoie! 


V  *-' ■ -.Vs. 
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TYPE  7700 
ACCEPT  62,LPL2 
TYPE  7702 
ACCEPT  *, NDI62 
TYPE  770 B 

FORMAT (IX, 'INRJT  MIN, MAX, INC  TI(C  ',») 

ACCEPT  •,T)C,TXE,TXS 
TYPE  7710 

FORMAT  ( IX, 'INRJT  MIN, MAX, INC  TIME.  AMPLITUDE  ',») 

ACCEPT  *,TYB,TYE,TYS 
BID  IF 
TYPE  64 

FORMATMX, 1 Y  OR  N  FOR  HANNING  OR  BEBSEL  FILTER  ',$) 

ACCEPT  62,WTP 
IF(WTP.BQ.  'N‘ )  THEN 
TYPE  65 

FORMAT l IX,  •  INRJT  ALPHA  1 ,  $ ) 

ACCEPT  *, ALPHA 
END  IF 
TYPE  67 

FORMAT  (IX, '  INRJT  WINDOW  START  AND  END  POINTS  nS  •,*) 

ACCEPT  *,6WID1 ,GWI02 

RETURN 

END 

SUBROUTINE  ESUP [ARRA, NA, IESUP)  t  Find  errors  In  coneande 

DIMENSION  ARRA (30) 

0=AR RAIMA) 

IFIQ.EQ.  'TAR'  .OR.Q.BQ.  'BTA'  .0R.Q.82.  'SW'  .OR.Q.BQ.  'BSP' )  GOTO  570 
IF(Q. ED. 'WIN' .OR.Q. ED. 'EXA' .OR.Q.EQ. ' EXI 1 .OR.Q.BQ. 'HLP' )  GOTO  570 
IFIQ.BQ. 'CAL '.OR.Q.BQ. 'WRT'.OR.Q.a. 'FPL '.OR.Q.BQ.' TPL')  GOTO  570 
IFla.a. 'TOW'.OR.Q.a. 'LAB'.OR.Q.a. 'RPT'.OR.Q.m. 'CHK')  GOTO  570 
IF(O.EO.  'END')  GOTO  570 
TYPE  *, 1  ENTER  A  VALID  COMMAND' 

IESUP=1 

RETURN 

IESUP=0 

RETURN 

END 

SUBROUTINE  CSUP (ARR,  I,  KRPT ,  IEND, SPAG, KSTP) 

COMMON  /BLKS/ARRA, NRPT 

DIMENSION  ARRA(30)  I  Control  subroutine  for  SUP 

IF(KSTP.NE.O.AND.I.a.KSTP)  THEN 

ISUP=0 

IEND=1 

RETURN 

BID  IF 


ARR=ARRAU) 

IF  (ARRAU)  .BO.  'END' )  THEN 

IEND=1 

RETURN 


I  Relinquish  control  set-up  but 
I  keep  parameter  set-up 


/v'\\ 

*  '  ’»r  .'j  *  »  a  *  ►  *•.  - 


n  n  n 


END  IF 

IFII.GT.1  .AND.  ARRAd ) . EQ.  '  END'  )  THEN 

IEND=1 

ISUP=0 

RETURN 

END  IF 

IFIARR. EQ. 1  LAB  1  ]  THEN 

NLAB=I+1 

1=1+1 

GOTO  1984 

BID  IF 

IFISPAG.ED.  ■  V  )  THEN 
1=1-1 

ARR=ARRA(I) 

END  IF 

IF(NRPT.BQ.O)  RETURN 


I  LAB  (Label)  1e  starting  point  of 
I  repetition  process 


1  This  a l  Ion  plots  to  be 
1  Redone 


I  Relinquish  SUP  node  after 
I  repetitions  ere  done 


IF(AHR.BQ.  'RPT' )  THEN 

ARR=ARRA[M_AB) 

KHPT=KRPT+1 

IF  (KRPT.  EQ.  NRPT +1 )  THEN 

KSTP=I-1 

I=NLAB 

RETURN 

END  IF 

I=NLAB 

END  IF 


RETURN 

END 


1  SUP  connand  structure  is  a  bit  Like 
t  a  programmable  calculator  (especially 

I  the  Casio  B<-601P) 


SUBROUTINE  HLPl*) 

TYPE  *,  1  1 

TYPE  *, 'LIST  OF  COMMANDS' 

TYPE  *, 1  “SU P"=SET  UP  A  SERIES  OF  COMMANDS  AND  PARAMETERS' 

TYPE  \  "'TAR"=ENTBI  DATA  INTO  TARGET  ARRAY' 

TYPE  *, '  “BTA"=ENTER  DATA  INTO  TARGET  BACKGROUND  ARRAY' 

TYPE  *,  '“Sm."=ENTBi  DATA  INTO  CALIBRATION  TARGET  ARRAY' 

TYPE  \  '"BSP'^BiTER  DATA  INTO  CALIBRATION  TARGET  BACKGROUND  ARRAY' 
TYPE  *, '  UEXA"=ENTER  DATA  INTO  EXACT  CALIBRATION  TARGET  ARRARY' 

TYPE  *,  "*WIN"=OiANGE  TARGET  DISTANCE  AND  WINDOW  WIDTH' 

TYPE  *, 1  “CAL"=CALIBRATE  DATA' 

TYPE  *,  "*CHK"=CHECK  FILE  STATUS  AND  PARAMETERS  FOR  CAL' 

TYPE  *, '  ‘‘TDW,"=GATE  IN  TINE  DOMAIN  ' 

TYPE  *,  ' "FPL"=PL0T  CALIBRATED  DATA  IN  FRB2UENCY  DOMAIN’ 

TYPE  *,  '“TPL"=PLOT  CALIBRATED  DATA  IN  TI*  DOMAIN' 

TYPE  *,  '  "WRT"=WRITE  A  CALIBRATED  FILE' 

TYPE  *,  "*HLP"=PRINT  LIST  OF  COMMANDS' 


.  '  *  .  V  ■ 

.  -  ..  •  .  •  r  .  *  .  t  -  T 


•  c- 
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THIS  SUBROUTINE  REMOVES  LARGE  NON-PERIODIC  SPIKES  PROM  DATA  IN 
COMPLEX  FORMAT.  WRITTEM  BY  DONALD  F.  Kite  ALL  ON 
JANUARY  10,  19B3 


INPUT  TO  SUBROUTINE  REMOVE  CONSISTS  OF  REAL  AND  IMAGINARY  PARTS 
CONTAINED  IN  A  SINGLE  COMPLEX  VARIABLE  ‘'RECT", 

AND  THE  NUtBER  OF  DATA  POINTS.  THE  OUTPUT  UNITS  OF  THE 
SUBROUTINE  ARE  THE  SAME  AS  THE  INPUT  UNITS. 

SUBROUTINE  CREMOVEtRECT, NP, NREMOV, NSPIKE.FINC) 

NREMOV  =  no.  of  ptfi.  renewed 
NSPIKE  =  Index  no.  of  pts.  removed 

INCLUDE  'CALCOM.FOR' 

DATA  CFT/  8.B3BE+8  / 

INTEGER  NSPIKEtMDJ 

COMPLEX  RECT (MD )  ,CAVG , CSttAVG,  CVAR,  CSTDEV 

NAVG  MUST  BE  AN  EVEN  NUtBER 

NSPIKE  (1)=0 
NREMOV  =0 

nute:  NAVG  must  be  an  even  number 

FIN  =  FINC  *  1.E+9  I  frequency  Increment 

TZONE  =  20.-  I  target  zone  In  feet 

SEN  =  g,  1  sen  etanoaro  deviations 

ISKIP  =  (CFT/ITZONE  •  FIN))  -  1 

ISKIP  =  no.  of  pte.  to  bkI p  in  average 
ISKIP  1  b  derived  from  Shannon's  tneorem 
ISKIP  muet  be  an  oud  number 

IFl(ISKIP/2]*2  .BQ.  ISKIP  )  ISKIP  =  ISKIP  +  1 
TYPE  *,  'ISKIP  =  ISKIP 
IHOLE  =  (ISKIP  -  1  ]/2 
TYPE  *,  'IHOLE  =  ', IHOLE 

dont  use  IHOLE  points  on  eitner  Bide  test  point 

NAVG  =  (2*CFT/(T20NE  *  FIN))  -  ISKIP 

NAVG,  number  or  points  to  average  over 
tnls  quantity  la  derived  from  tne 
tne  ainx/x  filter. 

NAVG  must  be  an  even  number 

IF( (NAVG/2)*2  .NE.  NAVG  ]  NAVG  =  NAVG  +  1 
IF (NAVG  .LT:  4]  NAVG  *  4 
TYPE  *,  'NAVG  =  ' ,NAVG 

DO  606  J=1 , NP 


TVW 


,*>  w"*1  .,V  *■  "*■  _"■»  . "  * 


*  >  •  V  •>  \  v  \.« 


AVGCB=0.  I  Initialize  tna  average  euraers 

CAVG=(D,,D.) 

CSQAVG=(0.,0.) 

GQAV6DB=0. 

HJM_SUM  =  0  I  nuabar  of  points  added  up 

COMPUTE  AVERAGE  OF  (NAV6)  POINTS  AROUND  POINTS 

AND  J+1  ,BUT  NOT  INCLUDING  THOSE  POINTS  IN  THE  AVERAGE. 

I  =  J  -  NAVG  /  2  -  IHOLE 
IF  t  I  .LT.  1  )  I  =  1 

IDIS  =  NP  -  J  I  hoe  cLobb  to  ana 

IF{  IDIS  .LT.  NAVG  /S  +  IHOLE  ) 

1=1-1  NAVG  /  2  +  IHOLE  -  IDIS  ) 

IF [  IDIS  .LE.  IHOLE  11=1+1  IHOLE  -  IDIS  1 

TYPE  *,  '  J  =  ',  J,  'SETTING  I  TO',  I 

IF l  IABS1  I  -  J  1  .LE.  IHOLE  1  GO  TO  22  I  don't  average  over  Biddle 


TYPE  •,  '  CALCULATING  FOR  J.I.NP',  J,I,NP 
CAVG=CAVG+RECT (1 1 

DB_HJM  =  20*L0G10(  CABS{  RECTI  I  ))) 

AVGOB  =  AVGBB  +  DB_HJM 
SQAVGOB  =  SQAVG0B+  0B_MJM  **  2 

CSQAVG  =  CSQAVG+CMPLX1 (REAL1RECT [I) ) )**2,  IAIMAGIRECT (Ill )**2) 
«JM_SUM  =  HJM_SUM  +  1 
1=1+1 

IF(  MJM_SUM  .LT.  NAV6  1  GOTO  111 


CA  VG=CA  VG/M1  M_SU  M 
AVGD6=AVG0B/NUM_SUM 
SQAVGOB=SQAVGOB/WJM_SUM 
CSQAVG=CSQAVG/HJ  M_SU  M 

calculate  variance  and  stanoerd  deviations 
VARDB=SQAVGOB-AVGDB  **2 

CVAR=CSQAVG-CMPLX ( (REAL(CAVG) 1**2, (AIMAG1CAVG1 1**2) 

IFl  VAROB  .LT.  0.  1  VAROB  =  0. 

IFl  REAL!  CVAR  1  .LT.  0.  1  CVAR  =  CMPLXl  0.,  AIMAGl  CVAR  1  1 
IFl  AIMAGl  CVAR  1  .LT.  0.  1  CVAR  =  CMPLXl  REAL!  CVAR  )  ,  0.  ) 
STDEVOB=SQRT  (VAROB  1 

CST DEV=CMPLX ( SORT  1 REAL 1 CVAR 1 ) .SORT fAIMAGl CVAR ) ) ) 

SEE  IF  POINTS  J-1,J,AND  J+1  DEVIATES  TOO  FAR  FROM  THE  AVERAGE  BY 
COMPARING  THEM  TO  THE  STANDARD  DEVIATION 

IFU-1.LT.1)  GO  TO  202 

IF(ABS(20*LOG10(CABS(RECT(J-1 1 1 1-AVGOB)  .GT.SEN'STOEVDB)  GOTO  101 
IF1ABS1REAL1RECT (J-1 1-CAVG1 1 .GT.SEN*REAL(CSTDEV1 1  GOTO  101 


IF[ABS[AIMAG[RECT (J-1 l-CAVG) ) .LT.SEN*AIMAG(CSTDEV) )  GOTO  202 

NREM0V=NREM0V+1 

NSPI K£ [ NREMOV ) =J-1 

TYPE  *, 'POINT  REMOVED1 

RECT (J-1 )=CAVG 

IFlABSt  20*L0G10[CABS(RECT  (J) )  J-AVGCB  )  .GT.SEN’STDEVOB )  GOTO  303 

IF (ABS1 REAL [RECT (J)-CAVG) ) .GT.SEN*REAL(CSTOEV) )  GOTO  303 

IF(A8S(AIMAG(RECT (J)-CAVG) ] .LT.SEN*AIMAG[CSTD£V) )  GOTO  404 

NREM0V=NREM0V+1 

NSPI KE l NREMOV )=J 

TYPE  •, 'POINT  ',J,'  REMOVED' 

RECT [J)=CAVG 

IFU+1  .GT.NP]  GO  TO  BOG 

IF (ABS(20*L0610 (CABS (RECT (J+1 ) )  J-AVGDB )  .ST .SEN+STDEVDB  J  GOTO  505 

IF (ABS( REAL (RECT [J+1 J-CAVG) ] .  GT.SEN'REAL(CSTDEV) )  GOTO  505 

IF [ASS  ( AIMAG ( RECT [J+1 3 -CAVG) ) .LT . SEN  *AIM4G ( CSTDEV ) )  GOTO  606 

NREH0V=NREM0V+1 

NSPI KE (NREMOV) sj+1 

TYPE  *, 'POINT  ',J+1,'  REMOVED' 

RECT  (J+1  )=CAVG 
CONTINUE 

TYPE  *,  NREMOV,  '  POINTS  RBKIVED' 

RETURN 

END 


Subroutine  FWN 

Fortran  naee:  FWNV.FOR,  developed  by  A.Doalnak  to  perfora 
pre-IFT  elndoalng  (to  reduce  pre-cureore)  In  FTRAN.FQR,  Modified 
by  N.F.  Chamber  lain  for  uea  In  CAi.B1.F0R. 

SUBROUTINE  FWN  (AM,  PH) 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN, FINC  /BLK3/IB 
COMMON  /BLKVNDIM,  AN  ST,  AINC 
BYTE  BUFF (332001 
I NT EG 51*2  INFILE (71 
DIMENSION  AM(SOOO) , PH  (5000) 

CHAR  ACT  51*2  WT.LP 
LOGICAL  CE,WTY 
EXT  BIN  AL  BIO 
DATA  LP/'LP'/ 

PI  =3. 141 5926 
NDIM=NP 

ANST=FMIN*1 000. 

AINC=NINT (FINC*1 000 . 1 
TYPE  *,'  ' 

TYPE  *, 'STARTING  TO  WINDOW  DATA  TO  REDUCE  PRECURSORS  IN  TIME  DOMAIN 
WRITE(6,*1  'INPUT  T  OF  F  TO  CONSERVE  SIGNAL  BiERGY1 
ACCEPT  *,  CE 
CE=0 

IF  (CE  1  THEN 

S1=0. 

83=0. 

DO  10  1=1 ,  NDI M 

S3=S3+10 .  **  (AM(1 1/20. 1  *COS0  (PH  ( I )  1 
S1=S1 +10. **(AM(I 1/10.1 
END  IF 

WRITE(6,*J  'INPUT  WINDOW  TYPE,  LP  (LOW  PASS)  OR  BP  (BAND  PASS)' 

ACCEPT  20,  WT 

FORMAT  (1A21 

IF(WT.BQ.LP)  THEN 

IWT1B=1 

IF(IWTLB.EQ.O)  THBI 
IW=NOIM 

DT=PI/FLQAT ( IW 1 

WRITE (B,*)  'INPUT  T  FOR  HANNING  OR  F  FOR  KAISER-6 ESSEL' 

ACCEPT  *,  WTY 
IF(WTY)  THBI 
00  30  1=1, IW 

WFACT= . 5* ( 1 . +COS ( DT * ( I 1 1) 

WFACT= (COS ( .6*0T*I J +. 22*C0S ( 1 . 5*0T*I ) 1/1 . 22 
AA=1 0 . •* ( AM ( 1 1/20 . 1 *WFACT 
IFtAA.LE.O. 1  AA=1.E-30 
AM(I)=20.*AL0610(AA) 

ELSE 

WRITE(6,*1  'INRJT  ALPHA' 

ACCEPT  *,  ALPHA 
ALPHA=2. 

TYPE  *, '  ' 

TYPE  *,*ALPHA=2  IN  BESSEL  WINDOWING  FILTER' 


I 


I 


V 


q 


n 

A 


i 


V 


I 


t 


PIA=ALPHA*PI 

C0N=8I0tPIA] 

DO  31  1=1, IW 

ARG=PIA’SQRT (1 .-(FLQAT(I)/FLQAT(IW) )**2) 

WFACT =810  (AFIG) /CON 
AA=10.”(AM(I)/20.)*WFACT 
IFIAA.LE.O. )  AA=1 . E-30 
31  AM(I)=20.*AL0G10(AA) 

END  IF 
ELSE 

C  WRITE(6,*)  'INPUT  T  FOR  HANNING  OR  F  FOR  KAISER -BESSEL' 

C  ACCEPT  *,  WTY 

C  IFIWTY)  THEN 

IWTY=1 

IF(IWTY.EQ.O)  THEN 

IW=NDIN/2 

IIW=2’IW-1 

IF  (FLOAT  [  NDIMJ/2. .  BQ.  FLOAT  (IW) }  THEN 
DT=PI/FLOAT ( I IN ] 

11=0 

DO  40  1=1 ,IIN,2 
11=11+1 

WFACT= . 5* ( 1 . +COS ( DT*I ] ) 

IFIWFACT. LE.O. )  WFACT=1 .E-4 

AM ( IW+I I J =20 . *AL0G1 0  f  1 0.  ”  ( AM [ I W+II )/2D . ) *WFACT ) 

40  AH(IW-II+1  )=20.’AL0G1Q(10.”(AM(IW-II+1 )/2D. )*WFACT) 

ELSE 

DT=PI /FLOAT (IW) 

DO  50  1=1 ,IW 

WFACT=  .  5*  ( 1 .  +COS  ( OT*I )  ] 

IFIWFACT. LE.O.)  WFACT=1.E-4 

AM ( IW+I+1 ) =20 . *ALQG1 0 ( 1 0 . ” ( AM l IW+I+1 ) /20 . J "WFACT  J 
50  AM [ IW-I+1 ) =20 . *AL0G1 0  ( 1 0 .  ”  ( AM  ( IW-I+1 1/20. ) *WFACT ) 

END  IF 
ELSE 

C  WRITE(6,’)  'INPUT  ALPHA' 

C  ACCEPT  ALPHA 

ALPHA=2. 

TYPE  *, '  ' 

TYPE  *, ' ALPHA=2  IN  BESSEL  WINDOWING  FILTBT’ 

PIA=ALPHA’PI 

C0N=6I0(PIA) 

IW=NDIM/2 

IIW=2*IW-1 

IF  (FLOAT  (N0IMJ/2. .  BQ.  FLOAT  (IW)  i  TH0< 

DT=1 ./FLQAT(IIW) 

11=0 

DO  60  1=1 ,IIW,2 
11=11+1 

ARG=PIA*SURT  ( 1 .  -  ( OT’I  J  ”2 ) 

WFACT  =6 10 ( ARG ) /CON 

AMUW+II  )=2C.*AL0G1 0(10. ’’(AMIIW+IIJ/20. ) ’WFACT) 

60  AM(IW-II+1  )=20.’AL0G10(10.”(AM(IW-II+1  J/20.  )*WFACT) 
ELSE 

DT=1 ./FLOAT (IW) 
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DO  70  1=1,  IM 

AR8=PIA*SaRT (1 .-[DT*I )**2) 

WFACT=BIO (ARGl/CON 

AMlIW+I+1 )=20.*AL061Q(10.**(AM{IW+I+1  )/20. )  *WFACT ) 
AM ( IW-I+1 J  =20 . *ALOG1 0  ( 1 0 .  (AM  ( IW-I+1  )/20 . ) *WFACT ) 
END  IF 
END  IF 
END  IF 
IF(CE)  THB4 
82=0. 

DO  SO  1=1  ,NDIM 

84=64+1 0**  (AM  ( I  )/20 . )  *COSD  (PH  Cl )  J 
82=82+10**  t  AM  II  ] /1 0 .  J 
SC=S0RTIS1/S2) 

SCI =81/82 

WRITE  16,*)  '81 ,82,80='  ,81 ,62, SC 
WRITE16,*}  '83,84,801=' ,83,84, SCI 
DO  80  1=1 ,  NDIM 

AM  (I)  =2D .  *AL061 0  ( 1 0.  ••  (AM  (D/20. )  *80 

END  IF 

RETURN 

BID 
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Subroutine  6AT 

Part  of  SBCi.61.F0R,  a  group  of  FFT  subroutines. 

Developed  by  A.Doeinek  to  parfore  gating  In  tha  tlaa  doaain, 
Modified  by  N.F.Chaabarlain  Jan.  1864  for  uae  aith  CAL61 .FOR. 


SUBROUTINE  GATIAM,  W,  MTDPTS1  ,NT0PTS2,ISUP,WTP, ALPHA) 
COMMON  /BLIC1/BUFF  /BLK2/NP,  FMIN,  FINC  /BLK3/IB 
COMMON  /BLKVNDIM.ANST.AINC 
BYTE  BUFFI33200) 

INTEGER+2  INFILEdS] 

DIMENSION  AM(5000),M(5000) 

LOGICAL  WTP.CE 
LOGICAL  CE 
EXTBiNAL  BIO 
PI  =3.1415827 
TYPE  *,  •  1 

TYPE  *, 'STARTING  GATING  ROUTINE  IN  TIME  DOMAIN' 
WRITEI6,*]  'INPUT  T  OR  F  TO  CONSERVE  SIGNAL  ENERGY' 
ACCEPT  *,  CE 
CE=0 

WRITE16,*!  ' INRJT  STARTING  AND  ENDIN6  INDEX  NUMBERS' 

ACCEPT  •,  IS, IE 

18=2048- NT 0PTS1 

IE=2048+NT  OPTS  2 

IS1=IS-1 

IF(CE)  THEN 

S1=0. 

83=0. 

DO  10  I=IS, IE 
S3=S3+AM(I ) 

S1=S1+AM(I)**2 
END  IF 

IFIISUP.NE.1)  THEN 

WRITE  16,*)  'INPUT  Y  FOR  HANNING  OR  N  FOR  KAISER-BE5SEL ' 
ACCEPT  11,  WTP 
FORMAT (All 
END  IF 

DO  20  1=1,18-1 
AM(IJ=0. 

IFtWTP.EQ. ' Y • ]  THEN 
NN=IE-IS+1 
IW=NN/2 
IIW=2*IW-1 

IF [FLOAT ( NN1/2. . EQ. FLQAT(IW) J  THEN 
DT=PI/FLQAT[IIW) 

DO  30  1=1 ,IIW,2 
WFACT=.5*{1 .+COS(DT*I) ) 

AM[IW+IS1+I)=AM[IW+IS1+I)*WFACT 
AM (IW+IS1  -I+U  =AM  l  IW+IS1  -1+1 )  *WFACT 
ELSE 

DT=PI /FLOAT ( IW ) 

DO  40  1=1, IW 
WFACT=.5»(1 .+COS{DT*IJ) 

AM1IW+IS1  +I+U=AMIIW+IS1  +1+1  ]  +WFACT 
AM  ( IW+IS1 -I +1 ) =AM l IW+I SI -1+1 ) +WFACT 
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ELSE 

IF1ISUP.  NE.1 )  THEN 
WRITE16,*)  'INRIT  ALWA' 

ACCEPT  *,  ALPHA 
BID  IF 

PI A=PI 'ALPHA 
CON=BIO(PIA) 

N»P=IE-IS+1 

IW=NN/2 

IIW=2'IW-1 

IF ( FLOAT [ NN) /2.. BD.  FLOAT (IW) )  THEN 
DT=1 ./FLOAT (II*) 

DO  21  1=1, II*, 2 

ARG=PIA*SQRT ( 1 .-( DT'I ) "21 

*FACT=8IO(ABG)/CON 

AMCIN+IS1  +I)=AM(  I*+IS1  +1 )  *WFACT 

AM ( I*+IS1 -1+1 ) =AM ( I*+IS1 -1+1 ) ••FACT 

ELSE 

DT=1 ./FLOAT (I*) 

00  31  1=1,1* 

AR6=PIA*SQRT(1  .-(DT'I  )"2) 

MFACT=8I0(ARG)/C0N 

AM ( I*+IS1 +1+1 ) =AM ( I*+IS1 +1+1 ) **FACT 

AM(I*+IS1-I+1  )=AM(IW+IS1-I+1  ]*NFACT 

END  IF 

END  IF 

DO  SO  I=IE+1  ,NDIM 
AM  (1 1=0. 

IF(CE)  THBf 
S2=0. 

aTeo  I=IS,IE 
S4=S4+AM ( I ) 

S2=S2+AM(IJ"2 
SC=8URT  (S1/S2) 

SCI =S3/S4 

WRITE C6 , •  J  'S1,S2,SC=',S1,S2,SC 

WRITE(6,*)  'S3,S4,SC1=',S3,S4,SC1 

DO  70  I=IS, IE 

AM(I)=AM(I)*SC 

END  IF 

RETURN 

END 

FUNCTION  BIO(X] 

XX=X/2. 

S=1. 

81=1. 

FAC=1 . 

ACC=. 00001 
DO  10  1=1,100 
FAC=FAC*I 
S1=S1*XX 
T=S 
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8=8+ [SI/FAC )**2 
TT=ABS( (T-Sl/S) 

IF(TT.LT.ACC)  GO  TO  20 

CONTINUE 

BIO=S 

IFtI.EB.101)  NRITE(6,*J  'BBSEL  FUNCTION  DID  NOT  CONVBIGE’ 

RETURN 

END 


Subroutine  IFT 

Pert  of  SBCL61.FOR,  e  group  of  FFT  subroutines. 

Developed  by  A.Donlnek  to  perfor*  Inverse  Fourier 

transformations  In  (-IRAN. FOR,  Modified  by  N.F. Chamber  lain  for  use  In 
CALE1 .FOR 
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SUBROUTINE  IR  (AM.PH,  ISUP,  DEMOD) 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN, FINC  /BLK3/IB 
COMMON  /BLKVNDIM,  ANST.AINC 
INTEGER*2  INFILE(IS) 

BYTE  BUFFI33200) 

COMPLEX  A (5000) 

LOGICAL  LUMP, LMAG 

DIMENSION  AM (5000) , PH  (5000)  ,8(1250) 

PI  =3. 141 5926 
DTR=PI/1 80. 

M=12 

NS=2048 

NST=2*NS 

TNS=NST 

NDIK=NP 

ANST=FMIN*1 000 . 

AINC=NINT (FI NC*1 000 . ) 

IF(ISUP.NE.I)  THEN 
TYPE  V  ' 

TYPE  *, 'STARTING  INVERSE  FOURIER  TRANSFORM' 

NRITE(6, *)  'INPUT  Y  OR  N  FOR  FRED.  GREATS)  THAN  20  GHZ' 
ACCEPT  5,  DEMOD 
FORMAT  (A1) 

END  IF 

IFfDEMOD. ED. 'N')  THEN 
N1 -NUMBER  OF  LEADING  ZER06 
N1=ANST/AINC+.1 
N2SN1 

CHECK  FOR  THE  PROPER  NUWER  OF  DATA  POINTS 

IFIN2.GT.NS)  NRITE16,*)  'TOO  MANY  SAMPLES',  N2 

IF(N2.GT.NS)  N0I*=NS-N1 

IFIN2.GT.NS)  N2=NS 

IFtNI.EB.O.)  GO  TO  31 

DO  30  1=1,  N1 

FILL  IN  LEADING  ZEROS 

A(I)=CMPLX(0.,0.) 

FILL  IN  DATA  POINTS 
DO  40  1=1  ,NDIM 
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N11=N1+I 

IF(NII.GT.NS)  GO  TO  51 
ANG=PH [I )*OTR 
AMP=10.**(AMlI)/20.) 

AIN11 )=CMPLX(COS [ANGJ .SINIANG) )*AMP 

TRAILING  ZB106 

NHX=NS-N1 -NDI N 

00  50  1=1,  MK 

A ( N2+I ) =CHPLX ( 0 . , 0 . ) 

CONTINUE 

CONSTRUCT  NE6ATIVE  FRED.  IMAGE 
A1NS+1 )=A[NS) +CONJG(A[NS) ) 

00  70  1=2, NS 

K=NST+2-I 

AlK)=€ONJG(A[I)) 

ELSE 

NN=NOIM 

I F ( FLOAT (NDIMJ/2..EQ. FLOAT ( NDI K/2 ))  NN=NDI M-1 
N2=NN/2 

IFIN2.GT.NS-1 )  MRITE{6,*)  ‘TOO  MANY  SAMSES',  N2 
IFIN2.GT.NS-1 ]  N2=NS-1 
N0=2.*PI»(ANST+N2*AINC)/10Q0. 

ANG=PH { N2+1  ] 

A ( 1 J =1 0 . •• ( AM ( N2+1 ) /20 . ) +CMPLX ( COSD ( ANG ) , SIND [ ANG ) ) 

DO  72  1=1,  N2 

II=N2+I+1 

ANG=PH(II) 

A  ( I-t-1 )  =1 0 .  [AM  { 1 1  )/20 . )  «CMPLX  ( COSD  { ANG ) ,  SIND  [  ANG )) 

DO  73  I=N2+2,NS 
A[I )=€HPLX(0. , 0. 1 
DO  74  1=1, N2 
II=NST-N2+I 
ANG=PH  (I) 

A[II )=10.** [AM (I ]/20. )*CMPLX(COSD [ANG) , SIND (ANG) ] 

00  75  I=NS+1 , NST-N2 
A(I)=CMPLX(0.,0.] 

END  IF 

CALL  F0RT(A,M,S,1 , IERR) 

IF(IERR.NE.O)  TYPE  *,  'ERROR  IN  FORT' , IERR 

OETHtMINE  TIME  AXIS  SCALING 

FFMX=AINC 

ANST=-1 .E3/FFMX/2. 

FMAX=-FMIN 

AINC=1  •Ea'FFMX/TNS 

NOIM=TNS 

IFIDEMOO.BQ.  •  Y'  J  THBI 
A(1]=2.*A(1} 

N00=N0*AINC*1.E-6 
00  76  1=1 ,NST-1 
11=1+1 

AA=2 . * ( REAL ( A ( 1 1 ) ) *COS ( NO 0* I ) -AI  »AG ( A [ 1 1 ) ) *S IN ( WOO*I ) ) 

A(II)=CMPLX(AA,O.J 

END  IF 

SHIFT  '0  TIME'  TO  CENT®  OF  PLOT 
00  SO  1=1, NS 


nnooonnn  ro  o  o  noon 


AMCNS+I  )=REAL (A(I ]  J 
PH(NS+I]=AIMAG(A(I)) 

80  CONTI  WE 

00  80  I=NS+1 ,  NST 
K=I-NS 

AM(K)=REAL(A(I } ) 

PH(K)=AIMAG(A(I)) 

GO  CONTINUE 

C  WRITE(6,*)  NOIH, ANST, AINC 

100  FORMATdX,  'NDIM='  ,115,  'ANST='  ,1F5.0,  'AINC='  ,1F5.0) 

C  CALL  LAB  (INFILE] 

RETURN 

END 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
Subroutine  FFT 

Part  of  S8CL61.F0R,  developed  by  A. Dob  1  nek  to  perform  forward 
Fourier  transformation  In  FTRAN.FOR.  Modified  by  N.F.  Chamber  lain 
for  use  In  CAL61.F0R. 

SUBROUTINE  FFT (AM, FH.JNDIM, INFILE) 

COMMON  /BLK1/BUFF  /BLK2/NP,  FMIN,  FINC  /BLK3/IB 
COMMON  /BLKVNDIM,  ANST,  AINC 
INTEGB*2  INFILE17) 

BYTE  BUFF (33200] 

COMPLEX  A (GOOD) 

DIMENSION  AM ( 5000] , PH ( 5000 ) , S ( 1 250 ) 

LOGICAL  INWN 
CHAR  ACT  B1*2  WT,LP 
OATA  LP/'LP'/ 

PI  =3. 141 5926 
H=12 
NS=2048 
TNS=4096. 

TYPE  1 

TYPE  *, 'STARTING  FORWARD  FOURIER  TRANSFOFM 1 
SHIR  '0  TIME1  TO  THE  LER  END  OF  PLOT 
DO  10  1=1, NS 
K=NS+I 

A(K)=CMPLX(AM(I } ,0. ] 

0  CONTINUE 

NST=TNS 
DO  20  1=1,  NS 
A  ( I ) =CMPLX ( AM ( NS+I J , 0 . J 
D  CONTINUE 

CALL  F0RT(A,M,S,-1 , IERR) 

WRITE16,*)  ' INRJT  NOIM, ANST, AINC* 

INCREASE  NOIM  TO  FILL  ARRAY  FROM  DC  TO  FMIN 

NOTE  CAL 53  WORKS  TO  ONE  LBS  OATA  POINT  THAN  FTRAN  I 

NDIM=1601-1+200 

ANST=0 

AINC=10 

ACCER  *,NDIM, ANST, AINC 

WRITE(6,*)  'APPLY  INVERSE  WINDOW  T  OR  F' 
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C  ACCEPT  *,  INWN 

NDIM=NP+NINT(FMIN*1000.»0.1) 

ANST=0 

AINC=NINT (FINC*1 000.  J 
INWN=0 

IF(INWN)  THEN 

WRITE  (6,*)  'INPUT  WINDOW  TYPE,  LP  CLOW  PASS)  OR  BP  (BAND  PASS)’ 
ACCEPT  1 ,WT 
1  FORMAT  (1A2) 

IF(WT.Ba.LP)  THEN 
IW=NOIM 

DT=PI/FLQAT(IW1 
DO  IS  1=1, IW 

WFACT=.5»(1  .+C0S(DT*(I-.5) ) ) 

AM(I)=20.*AL0G10(CABS(A(I+1 ) l/WFACT) 

15  PH(I]=ATAN2D(AIHAG(A(I+1 )  ]  ,REAL(ACI+1 ) ) ) 

ELSE 

NN=INT (ANST/AINC+. 1 } 

IW=NDIN/2 

IF(NDIM/2. .  ED.  IW)  THEN 
DT=PI/FLOATlIW) 

00  30  1-1,  IW 

WFACT= . 5» ( 1 . +COS ( DT» t I- . 5 )) ) 

AM ( IW+I ) =20 . *AL0G1 0 ( CAB  S ( A ( NN+IW+I ) J/WFACT ) 

AMCIW-I+1 ) =20 . •ALOeiOtCABSlA (NN+IW-I+1 ) )/WFACT) 

PH ( IW+I ) =ATAN2D ( AIMAG (A ( NN+IW+I ) ) , REAL (A [ NN+IW+I ) ) ) 

30  PH ( IW-I+1 ) =ATAN2D (AIMAG ( A (NN+IW-I+1 ) ) , REAL (A l NN+IW-I+1 ) ) ) 

ELSE 

AMIIW+1  ]=20.*ALOG10(CABS(A(NN+IW+1 ) ) ) 

PH ( IW+1 } =ATAN2D (AIMAG ( A (NN+IW+1 ) } , REAL (A l NN+IW+1 ) ) ) 

DT=PI/(2.»IW-1J 

00  40  1=1, IW 

WFACT= .5* ( 1 . +COS ( 2. *0T*I ) ) 

AM ( IW+I+1 ) =20 . *AL0G1 0 ( CAB  S ( A (NN+IW+I+1 ) ) /WFACT ) 

AM(IW-I+1 )=20.*AL0G10(CABS(A(NN+ IW-I+1 ) J/WFACT) 

PH ( IW+I+1 ) =ATAN2D (AIMAG (A (NN+IW+I+1 ) ) , REAL (A l NN+IW+I+1 ) ) ) 

40  W ( IW-I+1 ) =ATAN20 (AIMAG (A (NN+IW-I+1 ) ) , REAL (A (NN+IW-I+1 ) ) ) 

END  IF 
END  IF 
ELSE 

NN=INT(ANST/AINC+.1J 
DO  50  1=1  ,NDIM 

AM ( I ] =20 . *AL0G1 0 ( CABS ( A ( NN+I } ) ) 

&0  PH ( I )=ATAN2D(AIMAG (A (NN+I J ) , REAL (A (NN+I ) ) ) 

END  IF 

C  CALL  LAB  (INFILE) 

JNOIM=NDIM 

RETURN 

BID 
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C  Subroutine  RPL 

C  Part  of  a  group  of  plotting  subroutines  called  PLOTV.FOR; 

C  originally  developed  by  A.Doainek  to  achieve  tine  donein 

C  plots  in  FTRAN.FOR,  Modified 

C  for  use  aith  CAL61.F0R  by  N.F.Chsnbertain,  Jan.  1864. 

C 

SUBROUTINE  RPLt INFILE, AM, SPAG, PAG) 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN.FINC  /BLK3/IB 
COMMON  /BLKVNOIM.ANST.AINC 

COMMON  /BLK7/PL0T0 PT  2 ,  IP32 ,  LPL ,  NDI G ,  >« ,  XE ,  XS ,  TYB ,  YE,  YS 
COMMON  /PLT1/YB,  D6Y,  DSX,  ND1 , N02.TH  (5000) , ISYM 
BYTE  BUFF (33200) 

REAL*4  AM  (5000),  AMI  (5000) 

INTEGER*2  LINE1 (30) ,LINE2(30) ,PARA(30) ,INFILE(15) 

C  LOGICAL  LPL 

EQUIVALENCE  (LINE1 ( 1 ) .BUFF  1 1 ) ) , ( LINE2 ( 1 ) .BUFF (61 ) ) , 

1  (PARA(I)  .BUFF1121 ) ) 

DATA  LWSK/'888888BB'X/ 

YB=TYB 

C 

C  IF(LPL)  THEN 

IFILPL.B1.  'Y'J  THEN 
ISYM=ISYM-1 
AINC=AINC*1 . E-5 
DO  31  I=ND1 , ND1 +ND2-1 
AMT  =AM ( I ) 

IF(AMT.LT.YB)AHT=YB 

31  AMI  ( I-ND1  +1  ]  =»-AKT 

CALL  STRYP  (AMI, -YB,  DSY.TH.O. ,  DSX,  ND2.1.,  ISYM) 

IF(PLOTOPT2.NE.  *  Y '  J  THEN 
TYPE  \  '  ' 

WRITE16,*)  'INPUT  Y  OR  N  FOR  ANOTHER  CURVE  ON  SAME  PLOT' 
ACCEPT  32,  LPL 
END  IF 

32  FORMAT  (A1) 

IFILPL.BQ.  'N'J  THEN 
CALL  PLOT (0., 0.,  999] 

CALL  PLOTNOW(IMS) 

C  CALL  LIB (SPANN ( 'VPLOT' ) 

END  IF 

ELSE 

ISYM=-1 

AINC=AlNC*1.E-5 

C 

CALL  VPLOTStO.O.IDUM) 

CALL  PLOT (7 ., 1 .75,-3) 

XL=8. 

ANEN=ANST+AINC*(N0IM+1 ) 

TYPE  *,  '  ' 

TYPE  *,  'INI.  TIHE='  ,ANST,  'FIN.  TIKE=' ,  ANEN,  '  DEL  TII€=',AINC 
IF (PL0T0PT2.NE.  '  Y ’  ]  THEN 
TYPE  ' 

TYPE  •,  'INPUT  BEGINNING/END  Tift  AND  STEP  TIME  SIZE1 
ACCEPT  \>©,XE,XS 
END  IF 
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ND2=INT(  (XE-XB  )/AINC)+1 

TH  M )  =XB 

AMAX=-1000. 

AMIN=10Q0. 

AINC=ABS(AINC) 

DO  SO  1=1 ,  NDIH 

IF(AM(I) .LT.AMIN)  AMI N=AM [ I ) 

IF (AM (I) .  GT.AMAX)  AMAX=AM(I) 

DO  21  1=1,  ND2 

THII)=TH(I-1)+AINC 

ND1=INT((XB-ANST)/AINC)+1 

TYPE  •, 1  1 

TYPE  25, AMIN, AMAX 

FORMAT ( 1  MIbIiub  Is' ,F17.3,/, '  Maxiaun  is',F17.3) 

YL=6. 

IF(PLOTOPT2.NE.  'Y' )  THEN 
TYPE  *, 1  ' 

TYPE  *, 'INPUT  BEGINNING/END  MAGNITUDE  AND  STEP  MAGNITUDE  SIZE' 
ACCEPT  \YB,YE,YS 
END  IF 

IFIPL0T0PT2.NE.  * Y '  ]  THEN 
TYPE  *, 1  1 

TYPE  •, 'INPUT  THE  NUM3ER  OF  DIGnS  TO  THE  RIGHT  OF  .XXX' 
ACCEPT  *,NOIG 
END  IF 

DO  30  I=ND1  .ND1+ND2-1 
AKT=AM ( I J 

IF[AMT.LT.YB]AMT=YB 

AMI  ( I-ND1  +1 )  =-AMT 

XD=XE-XB 

SMNX=XB 

DSX=XD/XL 

0XL=XIVXD 

SPX=XS*DXL 

IPX=ABS(XD/XS+0.5) 

CALL  FFAXIS(0.,0.,1GHTIME  IN  NANOSECS, -16, XL, SO., SMNX.DSX, 

ISPX, NDIG,1.,0) 

YB=YE-YB 

SMNY=YB 

DSY=YD/YL 

DYL=YL/YD 

SPY=YS*DYL 

IPY=ABS(YQ/YS+0.5) 

CALL  FFAXIS(0.,0.,16HIMRILSE  RESPONSE, IB, YL,  1  SO . ,SMNY, DSY, 

ISPY. -1 ,1  .,0) 

YLG=-IPY*SPY 

IP33=2*IP32 

CALL  STRYP l AMI ,-YB , 06 Y,  TH , 0 . , DSX, ND2 , 1 . , IS YM ) 

CALL  GRI D ( YLG , 0 . , IPY , SPY , IPX , SPX , LMAS K ) 

CALL  SYMBOL (-6. 6,0.,  .10,6HFILE  :,90.,6) 

CALL  SYMBOL (-6. 6, .7, .10, XREF (INFILE) , 90 . , IP33) 

CALL  SYHSOLt-6.4,0.,  . 1 O.XREF (LINE1 ) ,  90 .  ,60) 

CALL  SYMBOL (-6. 2,0., .10, XREF (LINES) ,90., 60) 

IF(PLOTOPT2.NE. ' Y ' )  THEN 
TYPE  •,'  ' 
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WRITE (6,*)  'INRJT  Y  OR  N  FOR  ANOTHER  CURVE  ON  SAME  PLOT1 
ACCEPT  32,  LPL 
BID  IF 

IF(LPL.BQ.  ' N * )  THEN 
CALL  PLOTIO.,0.,888) 

CALL  PLOTNOW(IMS) 

CALL  LIB*SPAWN( 'VPLOT'l 
END  IF 
END  IF 

AINC=AINC*1.E5 

IFIPAG.EQ.  '  Y 1 }  THEN 
TYPE  1 
TYPE  1885 

FORMAT (IX, 1 Y  OR  N  FOR  PLOT  AGAIN  ',») 

ACCEPT  1986.SPAG 
FORMAT  (A1) 

END  IF 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

Subroutine  APP,  part  of  the  plotting  package  PLOTV.FOR. 

Developed  by  A.Dcunlnek  to  achieve  amplitude  and  phaae  piota  In  the 
frequency  donaln  In  FTRAN.FOR,  aodlfled  by  N.F.  Chamber  lain  Jan.  1884 
for  uee  a 1th  CAL61.F0R 

SUBROUTINE  APP(INFILE,RS,SPAG,PAG) 

COMMON  /BLK1/BUFF  /BLK2/NP, FMIN, FINC  /BLK3/ID 
COMMON  /BLKVNDIM,  ANST ,  AINC 

COMMON  /BLK6/PL0TOPT1 , IP31 , LPL, NDIG, » , XE, XS, YB , YE, YS 
BYTE  BUFF (33200] 

DIMENSION  AM(5000],PH(5000], AMI (2050) 

COMPLEX* B  RS(EOOO) 

INTEGER*2  LINE1 (30) ,LINE2(30) .PARA130) ,INFILE(15) 

COMMQN/PLT2/XBB  ,DSX,YBP,YBA,0SYP,DGYA,YEA,TH(2050),ISYM 
EQUIVALENCE  (LINE1 ( 1 ) .BUFF (1 ) ) , ( LINE2 [ 1 ) ,BUFF (61 ) ) , 

1  (PARA11)  ,BUFF(121 ) ) 

LOGICAL  LPLOT 

DATA  LMASK/ 1 B88B8888 'X/ 

DO  9015  1=1  NP 

AM(I)=20.*AL0G10(CABS(RS(I) ] ) 

PH  ( I ) =ATAN2D ( AIHAG ( RS ( I ) ) , REAL ( RS ( I ) ) ) 

CONTINUE 

IFlLPL.EQ. • Y1 )  THEN 

ISYM=ISYM-1 

)®  1 =2 . *XBB-ANST 

>ei=$®i/iooo. 

TH(1)=)®B/1000. 

AINCC=AI NC/1 000 . 

DO  5  1=2, NDIM 


TH(I  )=THII-1  J+AINCC 
00  10  I=1,NDIM 
AMT=AM(I) 

IF(AMT.GT.YEA)  AMT=YEA 
IF(AMT.LT.YBA)  AMT=YBA 
J  AK1  ( I J  =AKT 

CALL  PLOT (-.55, -.75, -3) 

CALL  PLOT (.55, 5. 55, -3) 

CALL  STRYP(TH,)C1  ,D6X,  PH,  YBP,  06 YP,  NDIM,  1 . ,  ISYM) 

CALL  PLOT l 0., -4. 8, -3] 

CALL  STR YP  (TH  ,)B1 ,  DSX,  AMI ,  YB A,  DS YA,  HDI M,  1 . ,  ISYM ) 

IFIPLOTDPFI.NE.  'Y']  THEN 
TYPE  *,'  1 

WRITE (6,*)  'INPUT  Y  OR  N  FOR  ANOTHER  CURVE  ON  SA*  PLOT1 
ACCEPT  33,  LPL 
BID  IF 

!  FORMAT  IA1) 

IFtLPL.BJ.  ' N 1 )  THEN 
CALL  PL0T(0.,0.,888) 

CALL  PLOTNOW(IMS) 

CALL  LIB (SPANN ( 'VPLOT' ) 

END  IF 
ELSE 

CALL  V PLOTS (O.O.IDUM) 

CALL  PLOTC .55,5.55,-3] 

ISYM=-1 

DO  PHASE  PLOT  FIRST 

CALCULATE  THE  X  AXIS  INFORMATION 

XL=6. 

XB2=ANST 

XE2=X8  2  +AI NC  •  ( NOI M-1  ] 

IF(XB2.GT.XE2)  THEN 

XX=0®2 

XB2=XE2 

XE2=XX 

END  IF 

X81=*B2 

TYPE  *, •  ' 

TYPE  *,  'THE  INITIAL  AND  FINAL  FREQUBICIES  ARE',  »2/1000.,XE2/1000 
IF(PLOTOPTI.NE.'Y')  THEN 
TYPE  V  ' 

TYPE  *, 'INPUT  THE  INITIAL,  FINAL  AND  STEP  SIZE  FREQUBICIES  IN  GHZ' 
ACCEPT  *,  >B,XE,XS 
BID  IF 

)B3=XB*1000. 

XE3=XE*1000. 

XS3=XS*1000. 

)BB=XB3 

XB1=2.*XB3-XB1 

)B1^®1/1000. 

TYPE  *,  'INKIT  STEP  FHBDUBICY  SIZE' 

ACCEPT  *,XS3 
TH(1)=>® 3/1000. 

PMAX=PH(1) 

PMIN=PH(1 ) 


uo  w  u  uuu 


AMAX=AM!1) 

AMI  N= AMU) 

AINCC= AI NC/1 000 . 

DO  20  1=2 , NDI M 
TH(I )  =TH  1 1—1  l+AINCC 
IF(PH(I )  .LT.PMIN)  PMIN=PHII> 

IF (PH (I ) .ST.PMAX)  PMAX=PH (I ) 

IF  (AH  [I )  .LT.  AMIN)  AMI  N= AMI) 

0  IF(AM(I) .BT.AMAX)  AMAX=AM II ) 

XD=XE3-XB3 
6»iX=XB3/1D00. 

06X=XD/X1_/1 000 . 

0KL=Xl/XD 
SPX=XS3*0XL 
IPX=AB  S ( XD/XE3 +0.5) 

CALL  FFAXIS(0.,Q.,16HFRBQLIENCY  IN  GHZ,-16,XL,0.,S)«X,D6X, 

1SPX  2  1.0) 

CAL nj LATE  THE  Y  AXIS  INFORMATION 
YL=4. 

TYPE  *,  'THE  MINIHJM  AND  MAXIMJM  FHASE  VARIATION  IS*  ,PMIN,PMAX 
TYPE  INPUT  BEGINNING/END  PHASE  AND  STEP  MAGNITUDE  SIZE1 
ACCEPT  \YBfYE,YS 
YB2=-1B0. 

YE2=180. 

YS2=B0. 

YD=YE2-YB2 
SMNY=YB2 
DSY=YD/YL 
DYL=YL/YD 
SPY=YS2*DYL 
IPY=ABS(YO/YS2-t0.6) 

CALL  FFAXIS(0.,0.,16HPHASE  IN  DEGRESS,  16,  YL,  BO.,  SMNY,  D6Y, 
1SPY,-1,1.,0) 

YLG=-IPY*SPY 

C  PLOT  THE  CURVE, GRID  AND  IDENTIFICATION  INFORMATION 

YBP=YB2 
DSYP=DSY 
IP33=2*IP31 

CALL  STRYP(TH,)B1  ,D6X,PH, YBP, D6YP,NDIM,1 ., ISYM) 

CALL  GRID( 0. , 0. , IPX, SPX, IPY, SPY, LMASK) 

CALL  SYMBOL! .5,4.7,.10,6HFILE  :,D.,B) 

CALL  SYMBOL (1 .2,4.7,.  1 0.SREF (INFILE) ,0. , IP33) 

CALL  GYMBOLl. 5, 4.6,. 10,SREF(LINE1 ) ,0. , 60) 

CALL  SYMBOL! .5,4.3, .10, XREFILINE2) ,0. ,60) 

CALL  SYMBOL! .5,4.1 ,. ID, XREFtPARA) ,0.,60) 

CALL  PL0T(0.,-4.B,-3) 

C  PLOT  THE  MAGNITUDE  NON 

CALL  FFAXIS(0.,0.,16HFRB1UENCY  IN  Gta,-16,XL,0.,SMNX,DGX, 
1SPX,2,1.,0) 

TYPE  '  ' 

TYPE  25.AMIN, AMAX 

25  FORMAT!'  MIbIbub  1s',F10.3,'  DB',/,'  MbxIbub  U',F10.3,'  OB') 
IFJPLOTOPTI  .NE. ' Y ' )  THEN 
TYPE  '  ' 

TYPE  *, 'INPUT  BEGINNING/END  MAGNITUDE  AND  STEP  MAGNITUDE  SIZE' 


nonnoooo 


*  w 


ACCEPT  •,YB,YE,YB 

BIO  IF 

IF(PL0TDPT1  .N£.  * Y* )  THEN 

TYPE  '  ' 

TYPE  •, 'INftJT  THE  MJMBER  OF  DIGITS  TO  THE  RIGHT  OF  .XXX1 

ACCEPT  *,  NDIG 

BIO  IF 

DO  30  I=1,NDIM 

AMT = AM  (I  ] 

IF(AHT.ST.YE)  AKT=YE 

IFIAMT.LT.YB)  AMT=YB 

30 

AMI tI)=AMT 

YD=YE-YB 

8HiY=YB 

DSY=YD/YL 

DYL=Yl/YD 

SPY=YS*DYL 

71 

IPY=ABS(Y0/YS+0.5) 

!r'> 

CALL  FFAXIS(0.,0.,15H  MAGNITUDE  IN  DB,15,YL,90.,SMNY,D6Y, 

18PY,N0IG,1  .,0) 

YL6=-IPY*SPY 

YEA=YE  - 

YBA=YB 

06YA=0GY 

£ 

C 

CALL  STRYP  [TH,)B1 ,  06X,  AMI ,  YBA,  D6YA,  NDIM,  1 ISYM) 

CALL  GRIDIO. ,0.,  IPX, SPX, IPY,SPY, LMASK) 

TYPE  *, 'IS  THIS  THE  LAST  PLOT,  T  TO  F' 

& 

C 

ACCEPT  *,  LPLOT 

*  !* 

C 

C 

IFILPLOT)  THEN 

CALL  PL0T(0.,0.,99B] 

O 

C 

C 

C 

c 

CALL  PLOTNOM(IMG) 

ELSE 

CALL  PL0Tl0.,0.,-889] 

END  IF 

IFIPL0TDPT1  .NE. 1 Y * )  THEN 

CkA 

TYPE  •, '  • 

WRITE16,*]  'INPUT  Y  OR  N  FOR  ANOTHER  CURVE  ON  GAME  PLOT' 

ACCEPT  32,  LPL 

BID  IF 

IFlLPL.m. 'NM  THBI 

CALL  PLOT (0.,0., +899) 

CALL  PLOTNOW(IMG) 

lV 

% 

c 

CALL  LIB (SPAWN { 'VPLOT' J 

n  „ 

END  IF 

p 

END  IF 

o. 

l 

IFIPAG.BQ. 'Y'J  THEN 

TYPE  ' 

TYPE  1887 

1* 

1987 

FORMAT (IX, ' Y  OR  N  FOR  PLOT  AGAIN  ',() 

ACCEPT  1 988, SPA G 

1  888 

FORMAT  (A1) 

END  IF 

N! 

C 

RETURN 

w 

BID 

id 
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c 

C  PROGRAM  NAME  :  CATLOG. FOR 

C  Modified  f roe  83. FOR  (by  J.Chen)  during  1884  by  Nell  Chamberlain. 

C  Program  now  automatically  fully  ecelee  e  directory 

C  of  cellbreted  date  fllae,  In  conjunction  with  FILEBORT.COM. 

C 

C  THIS  PROGRAM  MAKES  USE  OF  8-18  GHZ  CALIBRATED  DATA 

C  AND  GENERATES  A  FULL-SCALE  DATA  FILE. 

C 

C 

REALM  FA(1601),A21 8(1801  ),P21 8(1801) 

INTEGER’S  LINE2124] 

COMPLEX’S  TAdBOl ) , CAM 601 )  r R ( 1 601 ) 

CHARACTBI  INFILE*31 ,DIR_FILE*1 1,10*48, T_P0L*2,F_INC*4 
CHARACTB)  ELEV’2,S_FAC*4,W_D’3,0RIG’7,RFILE*10,T_SHIP*2,T_ASP’2 
C 

COMMON  BUFF, N0IM,ANST, AINC 
COMMON  /BLK2/  T_EHIP,T _ASP 
C 

TYPE  ' 

TYPE  *, 'Input  routine  ..' 

C 

C 

TYPE  ' 

TYPE  ’,'Input  polarization  type  (FV,FH,FX)' 

ACCEPT  7 ,T_POL 

7  FORMAT (2A) 

C 

TYPE  *, '  ' 

TYPE  *, 'Input  target  elevation  (15,27  deg) ' 

ACCEPT  7.ELEV 
C 

TYPE  ’, '  • 

TYPE  *, 'Input  frequency  Incraaent  ttiz1 
ACCEPT  *,FINC 
C 

TYPE  ’,'  ' 

TYPE  *, 'Input  frequency  Incraaent  again’ 

ACCEPT  8,F_INC 

8  FORMAT (A4) 

TYPE  ’, '  ' 

TYPE  *, 'Input  a  7  char,  deacrlptlon  of  aource  date' 

ACCEPT  10.0RIG 

10  FORMAT  (A7) 

C 

11  TYPE  *, '  ' 

TYPE  *, 'Input  directory  file  name1 
ACCEPT  5,DIR_FILE 
6  FORMAT (All) 

PRINT  1771, 'Directory  file  name  ' ,  DIR_FILE 
PRINT  1772 
1772  FORMAT! 'O’) 

1771  FORMAT  ( IX,  A22,  All) 

C 


TYPE  *, '  Input  nuaber  of  f  1  lu  1  n  dl  ractory 1 
ACCEPT  *,101 
C 

C  End  of  Input  routine 

C 

C  Open  dl ractory  file  ao  that  flla  haederG  aay  be  read 

C 

OPEN  lUNrr=2,  NAME  =  DIR_FILE  .READONLY, TYPE='OLD* ,  «ft=S88) 

C 

DO  1111,  I  MAIN=1,M-B1 
IFII_WIIN.B1.1]  THEN 
TYPE  •, 1  ' 

TYPE  15 

15  F0RMAT11X, 'Starting  scaling  procaedure1 ) 

END  IF 

READ l 2, 12}  INFILE 

12  FORMAT (A31) 

INFILE=INFILE (20:29) 

TYPE*, 1  ' 

TYPE  13, 'F1 la' ,I_MAIN, 1  ', INFILE 

13  FORMAT(1X,A4,I3,A4,A10) 

C 

CALL  REA  ( INFILE,  A21 8,  P21B) 

C 

C  Convert  data  froa  cfi  and  deg  to  nepers  and  radians. 

C  Note  that  data  Is  taken  and  stored  In  the  foraer  foraet. 

C  Chen  stores  his  data  In  (B  and  rad  and  this  foraat  Is  nacBSsary 

C  for  uea  In  DBPLT,  the  full  scale  plotting  routine. 

C 

PI=4.*ATAN(1.) 

DTH=PI/1H). 

DO  929  1=1 ,1601 
A21  BID  =1 0 .  ••  l  A21 81D/20 .  J 
P21 811  ]=P21 81I)*DTR 
829  CONTIItlE 

C 

IFIT_8HIP.B0.  'MO1 .0R.T_8HIP. BQ.  'IB ' )  THBI 
BF=2400. 

ND=0.25 

S_FAC11 :4}  =  '2400' 

W_D(1  ;3)='1/4' 

B.6E 

SF=1200. 

WD=0.5 

S_FAC(1 :4)='1200' 

N_D(1 :3)='1/2' 

BID  IF 
C 

C  Coaplle  a  file  name  for  the  scaled  target 

C 

RFILEll :2)=T_SHIP(1 :2) 

RFILE(3:4}=T_P0L(1 :2) 

RFILE(5:6}=T_ASP(1 :2) 

RFILE(7:8)=ELEV(1:2) 

C 
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Coaplla  ■  header  to  describe  the  eca Led  target 

ID(1 :8]  =RFILE(1 :8) 

10(8:9)  ='  1 

ID(10:11)=T_ASP(1 :21 
10(12:12)='  ' 

ID(13:15)='DE6' 

10(16:16)='  • 

ID(17:1B)='6F=I 
1D(2B:23)=S_FAC(1 :4) 

10(24:24)='  ' 

10(25:28)=' FINO.' 

10(30:33  )=F_INC(1:4) 

10(34:34)='  ' 

10(35:37)=' WD=' 

ID(38:40)=*L0[1:3) 

10(41:41}='  ' 

I0(42:48)=0RI6(1 :7) 

TYPE  ' 

TYPE  33,10 
PRINT  33,10 
F0RWT(1X,4BA) 

PRINT  *, '  ' 

Calculate  full  acala  frequencies 
according  to  aoala  factor 

00  46  11=1,1601 

FA(II)=(2.+III-1)/100.)/6F*1000. 

CONTINUE 

CREATE  A  HILL-SCALE  COMPLEX  TARGET 
RETURN  ACCORDING  TO  THE  SCALE  FACTOR 

DO  3540  IJ=1 ,1601 

CA (I J ) =CMPLX ( SF»A21 8(IJ)*C0S(P21  81IJ) ) ,  BF»A21  Bl  IJ ) *SIN IP21  Bl  IJ ) ) ) 

STORE  THE  INPUT-FILE  NAMES  IN  A  BUFFER 

00  SS7  IK=1 ,24 
LINE2(IK)='  ' 

SMOOTH  THE  FULL-SCALE  DATA  FILE  BY  CONVOLVING 
THE  FILE  NITH  A  HAMMING  WINDOW 

CALCULATE  PARAICTERS  FOR  THE  CONVOLUTIONS,  WERE, 

ROW  IS  THE  LOW  BBT  FULL-SCALE  FRffll/ENCY 
FHIGH  IS  THE  HIGHEST  FULL-SCALE  FREQUENCY 
FINC  IS  THE  FULL-SCALE  FAEQUB4CY  I  NCR  BENT 

aow=2./SF*iooo. 

FHIGH=18./SF*1000. 

aow=iNTiaow»io.  )/io.+.i 

FHIGH=INT(FHI6H*10. )/10. 


t*V 


c 

TYPE  '  ' 

TYPE  *, ' FA  ( 1 )  ='  ,FA11) , 1  FAdCNTJ®1 , FAIICNT) 

TYPE  *, 1  FLOW  =*  f  FLOW,  1  WISH  =',FHI6H 

TYPE  \'ICNT  =' , ICNT ,  '  NPT  =  ' ,NPT 

TYPE  *, 'SF  =' ,SF 

C 

C  PICK  UP  THE  DESIRED  FREQUENCY  AND  POSITION  THE 

C  CENTS)  OF  THE  HANNING  WINDOW  AT  THAT  FREQUENCY. 

C  ESTIMATE  THE  DATA  VALUE  OF  THE  DESIRED  FRBQUBICY  BY 

C  TAKING  THE  WEIGHTED  AVERAGE  OF  THE  NEIGHBORING  DATA  POINTS 

C  COVERED  BY  THE  HANNING  WINDOW,  WITH  THE  WEIGHTINGS  DETERMINED 

C  THE  HANNING  WINDOW. 

C 

DO  7720  RF=FLOW, ffl ISH , FINC 
7740  IFlRF.GE.FAd ) .AND.RF.  LE.FAd+1 )  )G0  TO  7730 
1=1+1 

IFd.GT.ICNTJGO  TO  4912 
GO  TO  7740 
7730  K=K+1 

CALL  INTER(R,CA,FA, ICNT, NS, I,K, WD, RF) 

7720  CONTIUJE 

C 

C  OUTPUT  THE  SMOOTHED  RJLL-SCALE  DATA  FILES 

C 

4912  CALL  POATAIRFILE.R.K,  FLOW,  FINC,  BF,  ID,  LINE2) 

C 

TYPE  NPT  =' ,K 
1111  CONTIMiE 

CLOSE (UNn=2, DISP=' SAVE' ,ERft=1001  ] 

GOTO  9080 

6B9  TYPE  ".'Open  error  -  file  not  found1 

GOTO  11 

1001  TYPE  *,  'Close  error' 

STOP 

9090  END 


c  min  miii  mi  1 1  mi  ii  ii  i  ii  ii  n  ii  iii  in  ii  ii  i  mini  minimum  i  iii 
c 

SUBROUTINE  PDATAIRFILE, CA, NPT , FLOW, FINC, SF, ID, LINE2) 

C 

C  THIS  SUBROUTINE  WRITES  A  FILE  ON  A  STORAGE  UNIT 

C 

I NT EG  SI  *2  LINE2 ( 24} 

CHARACTHI  ID*48,RFILE*10 
REAL *4  AM{a01),W(801J 
COMPLEX* B  CA(SOI) 

C 

10  DO  210  1=1,  Nr  i 

IF(CABS{CA(I )}  .EQ.O.  )CAd  )  =  (  1  .E-15,1  .E-15) 


AM(I)=20.*ALOG10(CABS(CA(I))) 

FH(  I )  -AT  AN2 1  Aims  ( CA  [  I ) ) ,  REAL  ( CA 1 1 )J ) 

OPEN  (UNIT=1 8,  NAME=RFILE,  TYPE= 1  NET  , REC0R06IZ E=51 2} 

WfiITEl18,30)  ID, LINE2, NPT , FLOW, FINC, SF 

EnDUAT  I A  A  ft  OAAO  AAA} 

WRITE { 1 8, 40 )  ( AM( I ) ,  1=1 , NPT) ,  (PHI I ) ,  1=1 , NPT ) 

FORMAT  [128A4) 

CL06E [UNIT=1 8, DISP= ' SAVE' ) 

RETURN 

BID 

II 1 1 II 1 1 IM I II 1 1 1 II I  III  1 1 1 1 1  li  1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 )  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

THIS  SUBROUTINE  CALCULATES  THE  WEIGHTED  AVERAGE 
OF  THE  DATA  POINTS,  USING  A  HAMMING  WINDOW  TO  DECIDE 
THE  WEIGHTINGS 

SUBROUTINE  INTER ( R, CA, FA, ICNT, NS, I , K, WD, RF ) 

COMPLEX’S  R(1601 )  ,CA  [1601  ) 

REAL*4  FA11801 ) 

WEI=0 

16=1 

XTMP=0. 

YTMP=0. 

RFL=RF-W0/2. 

RFH=RF+W0/2. 

IF (IS. GT. ICNT] GO  TO  10 
IF(FA(ISI.6T.RFH]G0  TO  10 
T=FA(ISJ-RF 

HAMM=.64+.46  *008(3.141 68B6n/WD) 

XTMP=XTMP+H  AMM’REAL (CA  (IB] ) 

YTMP= YTMPtHAMH’AIMAG ( CA l IS ) ) 

WEI=WEI+HAMM 
I6=IS+1 
GO  TO  20 
IS=I-1 

IFHS.LT.11G0  TO  30 
IF(FA(I6]  .LT.RFL1G0  TO  30 
T=FA(IS)-RF 

HAMM=  .64+.46»C0S  (3 .1 41 58B6*T/WOJ 
XTMP=XTMP+HAMM*REAL ( CA ( I S ] ) 

YTMP=YTMP+HAMM*AIMAG (CA IIS] ] 

WEI=WEI+HAMM 
16=16-1 
GO  TO  16 

R(K)=CMPLX(XTMP/WEI ,  YTMP/WEI ) 

RETURN 

BID 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

SUBROUTINE  PHCRIOPH, FA, IBASE,(H) 

REAL *4  PH1201]  ,FA(S01 ) 

TW0PI=8.*ATAN(1 . ) 


n  o  n  o  n  o  -*  nnnnnnn 


pi-mon/2. 

30  IF10PH.LT.PU6O  TO  20 

OPH=OPH-TWOPI 
60  TO  30 

20  IF10PH.GT.-PI1G0  TO  40 

DPH=OPH+T*OPI 
60  TO  20 

40  FBASE=FA(IBASE) 

00  1  0  1=1,201 

10  PH  (I  )=PH (I  )-lOPH*FAlI  J/RBASE) 

RETURN 
SID 

1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1  ■  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

THIS  SUBROUTINE  ESTIMATES  THE  VALUES  OF 
PHASE  RETURNS  AT  THE  END6  OF  A  OATA  FILE, 

USING  A  LINEAR  INTB?POLATION 

SUBROUTINE  EPH(PHM,PH,NS,NF,NI) 

REAL *4  ml 201) 

X=0 
Y=Q 
XY=0 
X2=0 

DO  10  I=NS,NF,NI 
X=X+FLOAT ( 1 1 
Y=Y+PH(I) 

XY=XY+FLOAT(I )*PH(I ) 

X2=X2+FL0AT ( I ] •FLOAT l I ) 

XN=(NF-NS)*NI+1 
0ELTA=XN*X2-X»X 
A=(XN*XY-X*Y)/DELTA 
B=IX2*Y-X*XY] /DELTA 
fHH=A*N&+fi 
RETURN 
END 

nut  ii n m i  linn  1 1 1 1 1 1 1 1 1 1 1 1 1  ii  1 1 1 1 1 1 1  mm  mini  n  inn  mi  mi  n 

THIS  SUBROUTINE  READS  A  FILE  AND  EXTRACTS  ASPECT  AND  SHIP-TYPE 
INFORMATION  FROM  THE  HEADER 

SUBROUTINE  REA  (INFILE,  AM,  PH) 

COMMON  BUFF ,  NDI M,  ANST ,  AINC 
COMMON  /BLK2/  T_SHIP,T_ASP 
C 

BYTE  BUFF (33200) 

INTEGER'S  LINE2130) ,PARAM(30) 

REAL*4  AP 14000! ,  AM  (1601 )  ,PH(18D1 ) 

CHARACTa  *2  T_SHIP,T_ASP,WIP(6)  ,ASP(14) 

CHAR  ACTS!  *1  HJM(IO)  ,LINE1 160) ,  INFILE*10,CFILE*60 
C 

DATA  SHIP/' AD' , 1  Lfl  V  LB ' , '  KH ','KX ',’MO’/ 

DATA  ASP/'OO'.'IO’.'IS'.'ZO'.'SO'.'AO'j'AS'.'SO'.'BO'.'BO'.'BO' 
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DEFINE  BUFFER  STRUCTURE 


EQUIVALENCE ( LINE1  (1]  ,BUFF(1> ) ,  (LINE2(1 )  ,BUFF(B1 ) ) 
1 ,  (PARAM11 )  .BUFF  (121 )  ] ,  (AP  (1 J  .BUFF (361 ) ) 

READ  A  FILE 

CALL  TR (INFILE) 


Here  beglne  the  neae  and  aapect  extractor 


00  2222  1=1,60 
CFILEd  :I  )=LINE1  (I ) 

OONTIMJE 

K=0 

DO  8888  1=7,30 

IF  IK.NE.O)  GOTO  5677 
DO  BBSS  J=1 ,10 

IF  (CFILEd :I). EQ. NUM(J))  THEN 
IC=I 

SOTO  8BB8 
BID  IF 
CONTINUE 

IF(K.ffl.O)  GOTO  B88B 
DO  7788  L=1 ,10 

1F(CFILE(I:I)  .ED.NUM(L) )  THEN 
GOTO  8B8B 
BID  IF 

CONTINUE 
IF(L.BB.II)  THBI 
L_ST0P=I-1 
GOTO  9966 
BID  IF 
CONTINUE 
DO  6698  IC=7,20 

IFlCFILEdC:IC+2).Btt.'DEG')  THBI 

N_FINO=IC+3 

GOTO  7755 

END  IF 

CONTINUE 

00  4444  I=N_FIND, N_FIND+8 

IFlCFILEddJ.Ba.'A')  THBI 

ISHIP=1 

GOTO  3333 

BID  IF 

IF(CFILE(I:I).BO.'N')  THBI 

IBHIP=6 

GOTO  3333 


00  188  NIM'NOIM 
AMINN)=AP[2*NN-1) 

IF(AM(NN) .GT. 401AM (NN) =40 . 

188  W(NN)=AP(2*NN) 

C 

C  CHECK  FOR  BAD  DATA  POINTS,  I.E.,  AHdl.GT.885 

C 

CALL  ERRFIAM.W.NDIM) 

RETURN 

0(0 

C 

c  mi  ii  i  ii  i  H  ii  ii  it!  limn  ilium  mm  im  ii  i  ii  mini  iii  iii  limn  ii 
c 

SUBROUTINE  TR(INFILE) 

COMMON  BUFF, N0IM,ANST, AINC 
C  INTBGBI*2  INFILEdS] 

CHARACTER  *10  INFILE 
DIMENSION  AM(1601),W(1601) 

BYTE  BUFF(33200],TBUFF(512) 

INCLUDE  1  SYS  $L  IB  RAR  Y :  FORIOSDEF 1 

IB=1 

ICNT=0 

8106  OPEN  IUNIT=B,  NAME=INFILE,  READONLY,  TYPE= 1  OLD 1 ,10STAT=IERR,ERR=B100) 

C 

C  SET  BLOCK  L0IGTH  IN  BYTE 

C 

82  IFdB.ED.1  )LEN=51 2-8*4 

IFdB.GT.1 1LBN=51 2-26*4 
C 

C  READ  A  BLOCK  OF  SI 2  BYTES 

C 

READ(B,80,B(D=80)  TBUFF 
80  FORMAT  1 51 2A1 1 

C 

C  STORE  A  BLOCK  INTO  THE  BUFFER  ACCORDING  TO  ITS  LBIGTH 

C 

DO  85  1=1 ,  LB! 

85  BUFF(ICNT+I)=TBUFFII  ] 

IB=IB+1 

ICNT=ICNT+  LEN 
GO  TO  82 

80  DO  86  1=1,  LSI 

86  BUFFUCNT+I)=TBUFFdl 
C 

C  ELIMINATE  BLANK  SPACES  IN  BETWE0J  EACH  CHARACTER 

C  IN  A  FILE  HEADER 

C 

DO  40  1=1,180 

40  BUFF  d)=8UFF{  2*1-1 } 

GO  TO  331 

8100  IF  dERR.  ED.  FOR$IOS_FILNOTFOU 1THEN 

TYPE  111 2, INFILE 

1112  FORMAT ( 1  FILE  :  ',A10,'  NAS  NOT  FOUND1,//,1  ENTER  FILENAN:  AGAIN*) 

ELSE  IF  dERR.HJ.FOR*IOS_FILNAMSPE)THEN 
TYPE  1113, INFILE 


m 

■  i 


£ 


5 


■JO 


pH 


Vt. 

:  j 


1113  FORMATC  FILE  :  ',A10,'  HAS  BAD,  »TS*  NEN  FILBiAIC) 

ELSE 

TYPE  *,  'UNRECOVBUBLE  ERROR,  CODE=',IERR 

STOP 

ENDIF 

ACCEPT  11 14, INFILE 

1114  FORMAT(AIO) 

GO  TO  8106 

331  CLOSE (UNn=B,DISP='  SAVE' ) 

RETURN 

ENO 

C 

C  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 ] II 1 1 !  I !  1 1 1 1 1 1 1 1 1 1 1 1  1 1 1 1  1 1 1  1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1  1 1 1  I  1 1 1 1 

C 

SUBROUTINE  DCDE 

COMMON  BUFF, NDIM, ANST, AINC 

DIMENSION  AMC1601 ) , (1601 ) 

BYTE  BUFF (33200] 

INTEGER*4  IMIN,  IINC,  NDIM 
C 

C  NO  OF  DATA  POINTS  IS  STORED  IN  FOUR  CHARACTERS,  AND 

C  STARTING  ANGLE  AND  ANGLE  INC.  IN  5  CHARACTERS 

C 

CHARACTER'S  CNL1 
CHARACTERS  CNL 
CHAR  ACT  ER*5  CFF.CINC 
CHARACTER  *1  ECH.TCAS 
DATA  EO^,ZB^0/'=','0,/ 

EQUIVALENCE  (BUFF ( 1 23 ) , CNL ) ,  (BUFF ( 1 31  ] , CFF ) ,  (BUFF ( 1 40 ) , Cl NC J 
EQUIVALENCE  (BUFF ( 1 23 ] , TCAS ] ,  (BUFF (124], CNL1 ) 

C 

C 

C  CONVERT  CHARACTERS  INTO  THEIR  NUMERICAL  EQUIVALENTS 

C 

IFIECH.EQ.TCAS]  THEN 
DECO  DE  ( 3 , 1 02 ,  CNL1 )  NDI M 
ELSE 

DECODES, 101, CM.JNDIM 
END  IF 

100  F0RMAT(I5) 

101  F0RMAT(I4J 

102  FORMAT  (131 

DECODE  (5, 100,  CFF]  IMIN 
DECO  DEO,  100,  CINCJIINC 
ANST=FLQAT(IMIN) 

AINC=FL0AT (IINC] 

RETURN 

0(D 

C 

C  !  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  M  1 1 1 1 1 1 1  |  1 1  1 1 1  |  |  |  |  | !  1 1 1 1 1  i  1 1  1 1 1  1 1 1 1  1 1 1 1  1 1 1 

C 

SUBROUTINE  ERRF(AM, PH, NDIM) 

DIMENSION  AM(1601 ) .PH11601 ] 

COMPLEX  C1,C2,CD 
DO  1  1=1,  NDIM 


>V  *■>>.  >>*i 


IF(PH(I )  .BT.88E.)  WITE(6,2)  I,AM[I),PH(I) 

CONTI  WJ  E 

FORMAT ( IX,  16HERROa  AT  DATA  PT,1I4,4HMAG=,1F10.4,4HPHS=,1F10.4) 
CHECK  LER  HAND  END  POINT 
IF(AM(1 ) .6T.100. ]  THBI 
DO  200  1=2,  NDIM 

IF(AM(I )  .LE.100.  .AND.  AMU+1 )  .LE.100. )  THEN 
A1=10.**(AM(I)/20.) 

C1=CMPLX(A1  *COSD(PH  ( I ) ) ,  A1  •6INDCPH  (I) ) ) 

A2=10.+*(AM(I+1 J/20. J 

C2=CMPLX (A2*COSD{PH ( 1+1 ) ) , A2+SIND (PH ( 1+1 )) J 

COC1-C2 

ROREAL(CD) 

AOAI  MAG  (CD) 

DO  212  11=1,1-1 

BOREAL  ( Cl  ]  +RD*I  I 

AOAI  MAG  ( Cl )  +AD*I  I 

AM  1 1 1 ) =20 . »L0G1 0 ( SDRT [ RC*RC+AC *AC J) 

PH(II)=ATAN2D(AC,RC) 

CONTINUE 
60  TO  211 
ELSE 
END  IF 
CONTINUE 
ELSE 
END  IF 

CHECK  RIGHT  HAND  END  POINT 
IFCAM(NDIM)  .GT.100. )  THEN 
DO  220  1=1 , NDI M 
J=NDIM-I 

IF(AM(J). LE.100.  .AND.  AM(J-1 ) .LE.100.)  THEN 
A1=10.**(AM(J)/20. ) 

Cl =CMPLX ( A1 *C0SD { PH (J )) , A1 *SIND (PH ( J )) ) 

A2=10.+*(AM(J-1 )/20. ] 

C2=CMPLX(A2*C0SD(PH l  J-1 } ) , A2+SINDIPH [ J-1 ) ] ) 

CD=C1-C2 
BOREAL  (CD) 

AOAI  MAG  (CD) 

DO  222  II=J+1 ,  NDIM 
ROREAL(C1)+RD*{II-J) 

AOAI MAG  (Cl )  +A0*  ( I I-J  J 

AM ( I I ) =20 . *L0G1 D (8QRT l RC*RC+AC*AC ) J 

PH(1I )=ATAN2D(AC, RC) 

CONTINUE 
GO  TO  221 
ELSE 
BID  IF 
CONTINUE 
asE 
END  IF 

CHECK  INTB1I0R  POINTS 
DO  230  I=2,NDIM-1 
IF(AM(I ) .GT.100. )  THEN 
DO  240  K=I+1 , NDIM 
IF(AM(K). LE.100.)  THEN 


tt— «  .  A...  .  ,  i » . **  .... ....  .JW  .  J 


;.-.v 


-  .• 


A1=10.**(AM(I-1)/20.) 

C1=CMPLX{A1 *C0SD{PHII-1 ) ] ,A1 •SINDCPHlI-1 ) ) ) 
A2=10.**lAM(K)/20. ) 

C2=CHPLX[A2*C0SD(PH [Kl } ,  A2*8IND(PH(K) ) ) 
CB=IC1-C2)/(K-I+1) 

BUREAU  CD) 

AOAIHAGCCDJ 
00  241  II=I,K-1 
ROREALCC1 )  +RD* (II-I+1 ) 
AC=AIHAG(C1)+AD»(II-I+1) 

AM ( I I ) =20 . *L061 0 ( SDRTt RC*RC+AC »AC ) ) 
PHlII)=ATAN2D(AC,RC) 

CONTI  WJ  E 
60  TO  230 
ELSE 
END  IF 
CONTINUE 
ELSE 
BID  IF 
CONTINUE 

RETURN 

BID 

THIS  IS  THE  END 


1 1 1 1 1 1 1 1 !  1 1!  1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  1 1 1 1  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


Prograa  nan*  TAFCAL.FOR 

Tiae  And  Frequency  Clesel  fleet  Ion  ALgorlthe  (TAFCAL) 


Originally  developed  by  J.Chen 
In  tao  perte  as  FREQ. FOR  and  TI1C.F0R 
Modified  by  N.Chaaberleln  May  1884  to  Incorporate 
claealflcatlon  at  varloue  poler1zat1onerelevat1ona  and  an 
extended  range  of  aepecta. (alth  the  capability  of  Intro¬ 
ducing  knoan  errors  In  aepact  or  elevation) 

COMPLEX  C( 110,30) ,NC( 110,30) ,FFFT (32) 

REAL  D(110, 110),  A(110,30),P(110, 30)^(110,30) 

REAL  ANdlO.SOl.PNdlO.SOl.WldlO.SO) 

REAL  NL130) ,PX(30) ,PY[10,30) .PYT130) , SAP (110) 

REAL  SP(IIO)  ,SNP(11Q) , Y_PL0T(1Q,60]  t SFFT ( 6) 

I NT EG  S)  IP0L(6),IELEV(3),SNR, SNR_MAX, SNR_MIN 

CHARACTER  POL(5)*1 , ELE*5,TLINE*5,T  CHAR*4,TC0N_EA(10)*1,TC0N_EL(10)'*1 
CHARACTER  LINE111  )*7Q,PAR_CH*2,PAfidO)*2,  AYN(10)*1 ,  YN*1 
CHARACTER  CON_ERA*1 , 00M_fflE*1 

COMMON  /BLK1/  I  POL, IELEV, NS, C, A, P, IRA, 10, I6RAPH 
COMMON  /BLK2/  SFFT , FFFT 


Inltlallae  header  variables  alth  blanks,  so  they  can  be  searched 

DO  1=1,11 
DO  J=1 ,70 
LINE ( I ) ( J : J ) =■  ' 

BID  DO 
END  00 


IGRAPH=1 

IER_AS=0 

IBIG_LOOP=1 


I  Index  for  counting  graphe 
I  Initialize  error  In  aspect  index 
I  This  Index  enablee  the  total  nuaber  or  rune, 
frequency  end/or  ties  to  counted  for  plotting 


Start  Input  routine  1 1  1 1 1 1 1 1 1 1  III  111  1 1 II 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1  START  INPUTS 


Default  to  target  directory  •••*•' 

'  Do  frequency  before  tiae  If  doing  both  1 

•  ■  i 
f 

Print  claeelfl cation  distances  7  Y  or  N' 
3,0IS 
(A1) 

(DIS.EQ. 'YD  THEN 


TYPE 

TYPE 

TYPE 

TYPE 

ACCEPT 

FORMAT 

IF 

IDIS=1 
ELSE 
IDIS=0 
END  IF 


TYPE  *, 'Input  1  OR  0  for  naa  noraellzlng  constant  In  AN  feature' 
ACCEPT  *,INR 

Paraaetars  are  entered  by  aeans  of  subroutines  in  order  to  aeke  the 


c 

c 


changing  of  paraaatara  alaplar  and  aora  flexible  later  on  In  progn 


22 

1 

8 

10 

2 

4 

6 

6 

7 

8 

654 

GS6 

C 

C 

C 

6656 

C 

C 

C 

C 

C 

C 

C 

C 

2880 


810 

C 


C 


C 

C 

C 

C 


C 


I  Select  cleeelf  1  cation  dona  In 
1  I/P  polarization  paraaetera 
I  I/P  elevation  parweters 


IQ=I8IG_L00P 

CALL  OOMIIOFT1 , IOFT2,IQ,IGRAPH,&22) 

CALL  f7N(IP0L,  LINE,  IQ,I6RAPM,&1 ) 

CALL  ELNIIELEV, LINE,  10, I6RAPH, &8) 

LINE(3)  (1:30)  =  'ELEV  AS8UICD  KNOWN  1 

IF(IELEVO)  .EQ. 2)  CALL  EKUIIEK, LINE, 10, IGRAPH.S10)  I  aprlorl  ale  know l 
IFtIEK.EO.1 .AND. IER_AS.BD.O)  CALL  ERE(IER_EL,LINE,IQ,IGRAPH,&2) 

CALL  ASPtMINASP, HAXASP, INCASP, LINE, ID, IGRAPH , 64)  I  Select  aapecta 

CALL  ANJ ( IAK, LINE,  10 , IGRAPH , 66)  I  aprlorl  aap.  knowledge 

IFdAK.EQ.1  .AND.IER_fcL.BQ.O)  CALL  ERA[IER_AS,LINE, IQ, INCASP, IGRAPH, 66) 
CALL  FRE(FMIN,FINC, NF,LINE, IQ, IGRAPH, 67)  I  Select  frequenclea 

IF  (IQFT2.EO.O)  CALL  RALtlRA,  IQ,  IGRAPH,  68)  I  Select  Ral  Aaplltude 

CALL  N0S(IS3,IS4,NEX, IQ,  IGRAPH,  6564)  (  Select  no  expta  &  r.n  seeds 

IFIIQFT1 .BQ.1 )  CALL  NAG(JNAG,ANAG,&665) 

CALL  FEA(IYA,IYW,RR,  IQ, IGRAPH, IB, LINE,  65656) 


End  of  Input  routine  1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  BID  INPUTS 
FMAX=fMIN+(NF-1)*FINC 

Read  data  f 1  lea  1 1  1 1 1 1 1 1 1  III  III  Ilf  1 1 1 1 1 1 1 1 1 1  It  I  111  1 1 1 1  READ  DATA  FILES 
1 1 1  ■  1 1  ■  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  •  1 1 1 1 1 1 1 1 1 

CALL  DATA(MINASP, NAXASP, INCASP, FNIN, FNAX, FINC, NF, LINE)  1 1 II  III  II II  DATA 


Estimate  signal  poeere  for  frsq.  and  tlae  cleeelf Icatlon 


PAVE=0. 

00  810  1=1,  NS 
00  810  J=1  ,NF 
PAVE=PAVE+A  d ,  J  ]  *A  II ,  J ) 
CONTINUE 


PAVE=PAVE/ (FLOAT ( NF ) ‘FLOAT (NS) ) 

PAV E=1 0 . *AL0G1 0 ( PAVE ) 

IN_PAVE=NINT (PAVE) 

IN_MIN=IN_PAVE-30 

IN_MAX=IN_PAVE+30 

IN_INC=10 


I  Pave=eua(A**2/nB/nf ) 

I  dB 

I  Convert  to  nearest  Integer 
I  V-  30  OB  Is  a  useful  range 
I  for  classification 
I  This  gives  ua  7  values  of  S/N 


IF(IBIG_L00P.S2.1. AND. I6RAFH. BQ.1)  THEN  I  First  run 

TYPE  '  ' 

TYPE  •, 'Ave  power  (<fi)  =  \IN_PAVE 

TYPE  *,  'Suggested  MIN, MAX, INC  of  noise  power  for  ♦/-  30  (S  S/N  ' 
TYPE  •, IN  MIN, IN_NAX, IN_INC 


Specify  alnlaua.aaxlaua  and  increment  of 

additive  gausslan  noise  powers,  once  signal  power  Is  known 

TYPE  *,  ’  ’ 

TYPE  *, 'Input  MIN, MAX, INC  of  the  noise  power  (cfi)' 

ACCEPT  *,IV1 ,IV2,IVT 
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e 


iv 


I 


r\ 

& 


S 


t.y 

i 


r.*S 


8 

3$ 
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IV1=IM_MIN 

IV2=IH_MAX 

IVT=IH_INC 

SNR_MAX=NINT (PAVE)-IVI 
SNR_HIN=NINT (PAVEJ-IV2 
ELSE 

I VI =IN_PAV E+SNR_MI N 
IV2=IN_PAVE+SNR_MAX 
END  IP 


I  Find  Halts  of  SNR 


1  Calculate  Noise  on  subsequent  runs  to 
I  provide  constant  SNR  range 


C 

C 

C 

5SS5 

C 

C 

6664 

68237 

C 


1 1  ■  II 1 1 1 1 1 1 1 1 1 1 1 1 1 !  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  ■  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  ■  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
IFIIOFT1 . EQ.1 )  THEN  1 1 1 1 1 1 1 1 1 1 1 1  IF(IFQT2.H1.1 )  GOTO 


TIME  DOMAIN 

V 

V 


DO  99237  1=1,  NF 

WLl  I ) =300 ./ ( FMIN+ 1 1-1 ) *F I NC ) 


I  Coepute  wavelengths 


PI=4.*ATAN(1.J 

T1«)PI=2.*PI 

NF1=NF-1 


DO  1434  1=1 ,  NS 
DO  1434  J=1 ,  NF-1 

IFIIRA.BQ.1  )A(I,  J)=A(I,  J)/A[I,  J+1 ) 


I  Coapute  relative  aapLItude 


Eliminate  branch  cute 


PC=P(I,J) 

DP=P(I,  J)-P(I,  J+1  ] 

I F  ( DP .  GT .  PI  ]  POPC-TOOPI 
IFIDP.LT.-PI  JPOPC+TWOPI 


C 

1434 

C 


Wl I , J ) =NLl J ) •PC-NLl J+1 ) *P l I , J+1 ) 


Coapute  relative  phase 


IF(IRA.BQ.O)CALL  VARNtA, NF, NS, VA,1 )  I  Estimate  variances  of  amplitudes 
IFdRA.ED.1 1CALL  VARNlA, NF1 , NS, VA,1  J 


U>J 

P 

CALL  VARN(W,  NF1  (NS, VW,  1 ) 

1  Estimate  variances  of  M's 

fTC 

605 

P 

RK=GQRT(VA/IRR*VWJ  J 

I  Calculate 

normalization  constant  RK 

t 

C 

P 

Print  out  paraaaters  Mill 

mmimiiinii 

1 1 1)1 1 1 1 1 1 1 1 1 1 1 1 1 1  PRINT  OUT 

t 

PRINT  *, 1  No  of  targets 

=  \NS 

PRINT  V  VAR (AMP] 

=  1  ,VA 

. 

l' 

PRINT  *, 1  VARIK) 

=  \VK 

r  m 

PRINT  *, 1  Ave.  signal  poser 

(cB)  =,  '.PAVE 

PRINT  18221.RR 

[V 

16221 

FORMAT (IX, 1  VAR(A]/VAR(KM) 

=  1  ,E12.6) 

PRINT  1 8222, I YW, IYA 

19222 

FORMAT! 1  IYK  =  ',11,'  IYA 

=  '.ID 

P 

PRINT  '  1 

i 

u 

c 

ELSE  1 II 1 1  III ! !  1 1 1 1 1 1 1 !  1 1 1  1  III  III  1  III  1  1 II 1 1 1 !  1 1 1 1 1 II !  1 1 1  TII€  DOMAIN 
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N 


M 

■\1 


h 


4 

S.1 


’m 


1038 


52 

1037 

C 

C 

C 


1040 


IYA=0 

IY*=0 


t  Reset  feature  pa  me  tare  for  call 
1  to  MN 


9824 

98274 

C 


C 

C 

C 

C 

5757 


CALL  F0RT(FFFT,5,SFFT,0,IFERR) 

Calculate  square  roots  of  total  signal  posers 

00  98274  1=1,  NS 
SP[I)=C 

00  9824  J=1  ,NF 

spm=sp(n-*ABS{c{ifjn»*2 

SP(I)=SQHT(SP(I)) 

PRINT  *,'  No  of  targets  ',NS 

PRINT  *, '  Ave  signal  poser  (SB)  *  '.PAVE 

PRINT  *, '  ' 

END  IF 

Calculate  SOX  confidence  interval  for  SOX  error 
and  encode  into  header  line 


C0N_IN=1 65. 0*SQRT  ( 0, 7»0 , 3/NS^NEX ) 
IF(ia.B1.1. AN0.I6RAPH.GT.il  THEN 
00  1=1,70 
LINE  (9)  (1:1)='  ' 

END  DO 
END  IF 

IF(IQ.BD.I)  THEN 

ENCODE  ( 23 , 1 03  B,  LINE  ( B) )  C0N_IN 

FORMAT  ('BOX  Cl  («30X)  V-  ',F3.1,*X') 

ELSE 

DO  1=70,20,-1 

IF(LINE(8)  (I :I).NE. 1  ')  THEN 

LB=I 

GOTO  52 

END  IF 

END  DO 

ENCODE ( 4, 1 037 , LINE ( 9) ( L8+5 : LB+S) ) C0N_IN 
FORMAT (F3.1 ,  'X' ) 

ENO  IF 


I  Re-initielise  header 
1  for  1st  run  of  next  graph 

I  1st  run 

I  encode  title  &  1st  vs  Luo 


I  search  for  end  of  last 
I  entry, find  length  of  line 
I  so  far 


I  add  on  subsequent  entries 


Encode  nuaber  of  targets  into  a  header  line 


IF (10. ED.  1  .AND. I6RAPH.6T.1 )  THEN 
DO  1=1,70 
LINE! 8)  (1:1)='  ' 

BID  00 
BID  IF 

IF(IQ.BD.I)  THEN 

ENCODE  ( 21 , 1 040 ,  LINE  ( 8] }  NS 

FORMAT ( 'NO  OF  TARGETS  ’,15) 

ELSE 

00  1=70,21,-1 

IF  (LINE  (8)  (1:1)  .NE. '  ')  THEN 


I  On  the  first  run  Include  title 
I  Encode  nuaericel  data  into 
I  character  data 

!  Search  for  end  of  string 
I  Find  length  of  string 
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i 


UUU  U  IOUUUU 


1 


G3 

1039 


LW 
SOTO  S3 


BIO  IF 
END  00 

BICODE  (5, 103  9,  TLINE)  NS 
FORMAT (15) 

LINE (8) IL8+5:L8+10]=TLINE(1 :5) 
END  IF 


< 

« 

I  Encode  nuaerlcal  data  Into  a  j 

I  taapory  variable  > 

I  Add  to  axlating  header  j 


Encoda  claaalflcatlon  faaturea  Into 


a  header 


I 


IFURA.BQ.1 )  T_CHAR11:4J='R  ' 
IF(IRA.EQ.O)  T_CHAR(1:4)='A  • 
IF(IYA.ED.O.AND.IYM.BQ.O)  THEN 
TLINE l 1 :4)='T  ' 

ELSE  IFdYA.BD.  O.AND.IYV.  BO.  1 3  THEN 
TLINEtl :4)='W  ' 

ELSE  IFdYA.BQ.1  .AND.IYW.EQ.O]  THEN 
TLINE ( 1 : 4) =T_CH AR (1:4) 

ELSE  IFIIYA.B0.1  .AND.IYW.EQ.1 ]  THBI 
TLINE (1 :1 )=T_CHAfl(1 :1) 
TLINE(2:4)='&W  ' 

END  IF 

IF  (IQ.  EQ.1  .AND.  I6RAPH.6T.1 )  THBI 

00  1=1,70 

LINE  110)  (1:1)='  ' 

END  DO 
END  IF 

IFdO.BD.Il  THBI 

LINE(IO)  (1 : 19)  =  ' CLASS.  FEATURES 

LINE [ 1 0) 1 20 : 24) =TLINE ( 1 : 4) 

ELSE 

DO  1=70,20,-1 

IF l LINE  110) (I :I] .NE. 1  •)  THEN 

LI  0=1 

GOTO  51 

END  IF 

END  DO 

LINE(IO) (L10+5:L1 D+9)=TLINEt1 :4) 

END  IF 


I  Rel  aap 
I  Asp 
I  Tine 

I  V  only 

t  Rel/awp  only 

I  Rel/ aap  fc  H 

} 


1  On  flrat  run  Include  title 
I  Add  feature  deacrlptlon 

I  Search  haedBr  for  and  of  prevloue 
I  entry 

I  Find  length  of  prevloua  entry 


I  Add  nee  entry 


C 

C 


Vary  the  nolae  power  froe  IV1  to  IV2  <S  1 1 1 1 1 1 1 1 1 1 1 1  III  1 1 1 1  VARY  NOISE 
at  an  Increeent  of  IVT  CB 


J_C0U  NT=NINT ( FLOAT 1 1 V2-I VI 1 /FLOAT  d  VT )  )+1 
TYPE  *, '  1 

TYPE  *, 1  Count  down  to  end  of  claaalflcatlon  run' 


I  Run  counter 


IRMIS=0 

00  80  IV=IV1 , IV2.IVT 

IRMIS=IRMIS+1 
TYPE  *,J_C0UNT 
J_C0UNT=J_C0UNT-1 


I  Inlt.  run  Index 

I  Index  ao  that  RMIS  can  be  arrayed 
I  Count  down  for  long  proceaaing  tines 


i 


341 


RMIS=0 


t  Initialize  the  nuaber  of  felea  alaras 


DO  886  IEX=1 ,  NEX 
IFUDIS.EQ.1 1PRINT 


Parfora  cleealflcatlone  NEX  tlaee 


Add  noise  to  the  orlglnel  data  fllae  to  generate 
test  targets 


V*=10.*»(FLQATUV)/10.) 


I  dB  to  napere 


1 1 1 1 1 1 ■ ■ i ■ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  ii  1 1 1 1 1 1 1 1 1 1 1 1 * 1 1 1 1 1 1 

CALL  MN( VM, IS3, IS4,C, NC, NF, NS, IYA, IYM, IEX, SAP, SP) 


1 1 1  CALL  MN 


iFUam.eu.il  thbi  mini  iFUaFT2.ea.ij  th»  goto  time  domain  class. 

Calculate  the  noiay  aapLItuda  and  phase  returns 

00  821  1=1,  NS 
DO  821  J=1 ,  NF 
ANU,J)*ABSINC(I,J)) 

PN(I,  J1=ATAN2(AIMAG(NCU,  J)  1 ,  REALCNCU,  J) 1 1 

Calculate  the  noisy  M's 

DO  822  1=1,  NS 
DO  822  J=1 , NF— 1 
PC=PN II , J 1 

DP=PN  [  I ,  J 1  -PN  ( I ,  J+1 ) 

I F ( DP . GT . PI  1 PC=PC-TMOPI 
I F { DP . LT . -PI  1 PC=PC+TMOPI 
MN(I, J)=ML( J]*PC-ML(J+1 )*PN(I, J+1 1 
IF(I RA.Ba.OJGO  TO  388 

Calculate  the  noisy  relative  aaplltudas 

DO  348  IR1=1,NS 
00  348  IR2=1 ,  NF-1 

ANUR1  ,IR2)=AN(IR1  ,IR2J/ANUR1  .IR2+1 1 
IFUNR.GQ.l )  THEN 

IFURA.BQ.O)  CALL  VARNIAN, NF, NS,VA,1 1 
IF(IRA.ea.l)  CALL  VARN(AN,NF1,NS,VA,1) 

CALL  VARN(WN,NF1,NS,VW,11 
RK=9URT ( VA/IRR*VM) 1 
END  IF 

I 

Coapute  the  nearest  neighbour  distances 
between  any  two  classes 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  ■  1 1 1  ■  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

CALL  DIST_FURA,  IYW,  IYA,  A,  M,  AN,  »W,  NF,  NS,  RR,  RK,  D,  JNAG, ANAG) 


X.-*-  *"•  M*  'a,*-  a  a’r  M 


ELSE  II 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1  III  111  HI  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  TIME  DOMAIN  CLASS. 


Calculate  the  square  roots  of  the  total  powers  of 
the  noisy  targets 

DO  8221  1=1,  NS 
SNP  (I )=0 
DO  821 2  J=1  NF 

SNP(I  )=SNP(I  )+ABS(NC(I,  J] )**2 
CONTINUE 

SNP(I)=8QRTISNP{I)) 

Conpute  cross  cosffl dents  between  any  two  targets 
»=INTIFMIN/FINC] 

■  . . . . . . . . . . . . . . . . . . . . . . . . .  ■  1 1 1 1 

CALL  DISTjriC.NC.SP.SNP.NF.NS.D.W)  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  CALL  DIST_T 


Do  classification  and  cawpute  nuwber  of  false  aLanes 

If  the  aspects  are  asauned  known  than 
consider  only  those  classes  whose  aspect  angles 
are  the  sane  as  that  of  the  target, otherwise 
consider  all  cLasees 


KAS P= (MAXASP- HI NASP] /INCAS P+1 
IFIIAK.  EQ.0)KASP=1 


I  No  of  aspect  angles 
I  aspects  when  aspect  Is  known 


Find  the  nearest  neighbour  to  the  test  targets 

or  a  cLass  which  has  the  wax  correlation  coefficient 

with  a  target 

IFIIEK. EQ.1  .AND. IELEVO) .6T.1 )  TP 01  I  Elevation  known 

If  elevation  Is  known  and  there  Is  wore  than  1  elevation,  then 
consider  only  those  classes  whose  elevations  are  known 


IPP=2 
ELSE 
IPP=1 
END  IF 


I  Elev  known 
I  Elev  unknown 


DO  IP=1,IPP  I  Split  target  array  Into  2  parts  If  elev  known 


IKX1=NS»{IP-1 1/2+1 
NS1=NS*IP/IPP 

DO  7263  IKX=1 ,  HASP 
IEXP0=1 

IK1=IKX+IKX1-1 

DO  740  IT=IK1 , NS1 , HASP 


I  — >  (  1  then  NS/ 2  +  1  )  or  1 

I  — >  C  N^2  then  NS  J  or  NS 

I  1 — >No  of  aspects 


I  1,2,— >NS^2  &  NS/2+1,2,— >NS 


v-y 


DMIN=1 0000000000 .  t  fraq 

DHAX=-10.  I  tins 

C 

IF(IER_EL.  EQ.1 )  THBi 
NS 2= NS/IP 

IKX2=UPP-IP)*NS/2+1 
ELSE 
NS2=N61 
IKX2=IKX1 
END  IF 
C 

IK2=IKX+IKX2-1 

DO  860  IU=IK2,NS2,KASP  1  Index  for  searching  noiseless  tergets 

C 

IFIIERJIS.EQ.I)  THEN 
C 

C  Introduce  a  deliberate  error  in  aspect.  There  eust  be  2  or  3  eepects  to 

C  do  this.  If  1st  shift  up  by  INCASP,  if  lest  shift  do*n  by  INCASP,  If 

C  niddle  shift  up  and  down  by  INMSP.  Thi6  siBuletes  an  error  of  +/- 

C  INCASP  degrees. 

C 

IFiIKX.BQ.1)  I=IU+1 

IFIIKX.EQ.3.0R.  (KASP.BQ.2.AND.IKX.H1.2)  ]  I=IU-1 
IFHKX.BQ.  2.AND.KASP.EB.3)  I=IU+l-1  )**IEXP0 
ELSE 
I=IU 
END  IF 
C 

C  Dll, IT 3  Is  the  distance  beteeen  noiseless  target  I  and  noisy  target  IT 

C 

1FIIQFT1  .ED.  1 }  THEN 
IF (Dll, IT) .GE. DNIN3G0  TO  860 
DNIN=D(I, IT) 

IHIN=I 
ELSE 

IFIDII, IT) .LE.DMAX)  GOTO  860 
DMAX=D(I,ITJ 
IMAX=I 
END  IF 

860  CONTINUE 

C 

C  If  a  target  is  alsclasslf led  increase  the 

C  number  of  false  slews  by  one 

C 

IF  IIERJIS.BI.1)  then 
C 

C  If  a  deliberate  error  is  made  In  aspect,  alter  IMIN,IMAX  to  account 

C  for  this.  So  if  algorithm  picks  SI  t  10  deg  as  the  closest  neighbour 

C  to  61  •  0  deg,  then  this  is  considered  a  correct  classification 

C 

IFIIQFT1  .BQ.1 )  IHINMAX=IMIN 
IFIIQFT2.EQ.1)  IMINMAX=IMAX 
IFIIKX.BQ.1)  IMINMAX=IMINMAX-1 

IFIIKX.EE.3.0R.  (IKX.EQ.2.AND.  KASP.EQ.2) )  IMINMAX=IMINMAX+1 
IFIIKX.BQ.2.AND.KASP.BQ.3.AND.IEXP0.B1.1)  IMINMAX=IMINMAX+1 


)  Freq  classification 
I  search  for  sin  distance 


I  Time  classification 
I  search  for  sax  corr.  coeff. 


I  Change  variables  in  do  loop 
1  to  introduce  error  of  15  deg  In 
I  elevation 

I  IER_EL=0  implies  no  elevation  error 
1  therefore  keep  no  noise  elevations 
!  the  same  as  noisy  elevations 


IFIIKX.EQ.  2.AND.  KASP.BD.3.AND.  I  EXPO.  BO.  2)  IMINHAX=IMINMAX-1 
IMIN=IMINMAX 
INAX=IMINMAX 
END  IF 
C 

IF(IER_EL.ED.1  .AND.  IEK.  BD.  1 )  THEN 
C 

C  Allow  for  deliberate  error  Mde  In  elevation  In  the  sane  way  as  eae 

C  done  for  aspect 

C 

IFIIDFTI .Efi.1 )  IMINMAX=IMIN 
IFIIQFT2.EQ.  1 )  IHINMAX=IMAX 
IFdP.BD.1J  IMINHAX=IMINMAX-NS/2 
IF  (IP.  ED.  2)  IMINMAX=IMINKAX+NS/2 
IMIN=IMINMAX 
IMAX=IMINMAX 
C 

END  IF 
C 

IF  IIDIS.BD.1.  AND.  IdFTI.BD.1)  PRINT  •, '  TARGET  s \ITf '  MIN  =  \IMIN 
IF  IIDIS.  B3.1  .AND.  IQFT2.BD.1 )  PRINT  *, '  TARGET  s'.IT,1  IttX  =  \IlttX 
IFdDIS.BQ.1  JPRINT  730,  (NINT (Dill  ,IT) ) ,I1=IK2,NS2) 

C  IFlI0IS.Ba.2)WHIT£(1,730)(Dd1,m,H=1K2,NS2) 

730  F0RMAT(1X,36I5,/J 

C 

IF  (I  MIN.NE.IT.  AND.  IGFT1  .ED. 1 )RMIS=RMIS+1 .  I  Increment  errors 

I F ( I MAX. NE . IT . AND. IQFT2 . BD. 1 ] RM. 3=RMIS+1 . 

740  CONTINUE 

C 

IFIIKX.EQ. 2. AND. IER_AS.BD.1 .AND. IEXPO. BD. 1 .AND.KASP.BD.3)  THEN 
IEXPO=2 

GOTO  7171  I  If  no  of  asps  =  3,  repeat  for  Middle  aspect 

END  IF 
C 

7263  CONTIMJE  1  nuaber  of  aspects  loop 

END  DO  I  nuaber  of  elevations  loop 

8B8  CONTINUE  I  nuaber  of  experlaente  loop 

C 

C  Calculate  the  aexlaun  llkllhood  estimate 

C  of  the  error  probability 

C  (Account  for  extra  classifications  done  when  there  are  3  aspects 

C  and  a  deliberate  error  Is  Introduced.) 

C 

IF(IER_AS.BD.1 .AND.KASP.EU.3)  RMIS=BMIS/FLQAT(NEX*(NS+S) )*100. 

IF (IER_AS. ED. 0.0R. KASP. BD. 2)  RMIS=RMIS/FLOAT ( NEX'NS) *1 00. 

C 

SNR=NINT(PAVE)-IV  I  Signal  to  noise  ratio 

IF(IDIS.BD.O)  PRINT  1113 ,SNR, RHIS  1 
1113  FORMAT l 1  SIGNAL  TO  NOISE  RATIO  =  ',13,';  X  BJRORS  =  \F5.1) 

C 

Y_PL0T(IBIG_L00P,J_C0UNT+1J=flMIS  I  plotting  array 

IFdV.ED.IV2)  THB1 

PRINT  V  *****••*•***«*•••****•*•**•****•*•***•••****••••' 

PRINT  % '  • 

BID  IF 
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CONTIMJE 


IF(IER_AS.B1.1 )  IREN 

IF(IQ.  BD.1  .OR.1GRAPH.EQ.1 ]  THEN 

TYPE  *, '  1 

TYPE  *f'Cont1nue  to  have  error  In  aspect  ?  Y  or  N  1 
ACCEPT  129B6,CON_ERA 
FORMAT (A1 ) 

TCON_EA(XCj  (1 :1)=C0N_BTA(1 :1  J  i  Store  previous  entries  for  subsequent 
ELSE  I  runs 

CON_B?At1  Jl  J=TCDN_EA[IQJ  II  :1] 

END  IF 

IF(CON_ERA. EQ. ' N 1 1  IER_AS=0 
BID  IF 

IFIIER_EL.ED.1J  THEN 
IFtlQ.BQ.1 .0R.IGRAPH.ED.1  ]  THEN 
TYPE  \  >  ' 

TYPE  *,  'Continue  to  have  error  In  elevation  ?  Y  or  N  1 
ACCEPT  129S6,C0N_ERE 
TCON_ELdQ) 11 :1 )=C0N_ERE(1 :1 ) 

ELSE 

CON_BIE  (1:1)  =TCON_EL  ( IQ )  1 1 : 1 ) 

END  IF 

IFlCON_ERE.BQ. 'N' ]  IER_EL=0 
END  IF 

IB  IG_LOOP=IB  IG_L00P+1 
IQ=IBIG_LOOP 

Processing  options 

IFdGRAPH.BQ.1  .OR.IO.GT.  dNUMG-1 )  )  THEN 
TYPE  ' 

TYPE  *, 'Type  S  to  stop  end  plot1 
TYPE  *,'Type  P  to  change  current  parameters  1 
TYPE  *, 'Type  R  to  do  nee  graph  retaining  old  parameters' 

TYPE  *, 'Type  G  to  do  nee  graph  eith  nee  parmeters' 

ACCEPT  1115, YN 
FORMAT  (All 
AYN(IQ)=YN 
ELSE 

YN=AYNIIQJ 
END  IF 

IFIYN.EQ.  'S'  .0R.YN.B3.  ' G'  .OR.YN.EQ.  'R' )  GOTO  1117 
Routine  for  changing  parameters 
IFdGRAPH.EQ.I  .OR. IQ. GT. INUMG)  THEN 


I  Increment  curve  counter 
I  For  convenience 


TYPE  *, '  ' 

TYPE  ‘/Type  PO  to  change  polarization' 


TYPE  *, 1  AH  to  change  rel/aapli tude1 

TYPE  '  FR  to  change  frequencies' 

TYPE  *, '  EL  to  change  elevations’ 

TYPE  *, 1  EK  to  change  un/knoan  elev1 

TYPE  *, 1  EE  to  change  no/error  In  elev' 

TYPE  *, 1  AS  to  change  aspects' 

TYPE  *, 1  AK  to  change  un/knoan  aspect' 

TYPE  *, 1  AE  to  change  no/error  in  aspect' 

TYPE  *, '  NE  to  change  nuaber  of  expts' 

TYPE  *, 1  DO  to  change  donalns' 

TYPE  *, 1  FE  to  change  NN  features' 

TYPE  *, '  HA  to  use  Neils  algorithm' 

C 

1118  TYPE  • 

TYPE  *, 'Input  change' 

ACCEPT  1116,PAR_CH 
1116  FORMAT (A2) 

PAR ( IOJ l 1 : 2) =PAR_CH ( 1 : 2) 

ELSE 

PAR_CH ( 1 : 2 ) =PAR t IQ H 1 i 2 ) 

END  IF 
C 

IF IPAR_CH . BO.  ' PQ '  ]  CALL  PZNIIPOL, LINE,  10, IGRAPH, 05656) 

IF(PAR_CH.HQ. 'FR']  CALL  FRE(FMIN,FINC, NF, LINE, 10, IGRAPH, 66656 ) 
IF(PAR_CH.BQ.  'AH'  ]  CALL  RAL(IRA,IQ, IGRAPH, 65656) 

IFIPAR_CH.BQ.  'EL')  THEN 

CALL  ELNdELEV, LINE, IQ, IGRAPH, 07070) 

7070  IFIIELEVO]  .BO.  2)  CALL  EKU (IEK, LINE, IQ, IGRAPH, 67072) 

7072  IFdEK.EQ.I  .AND.IER _AS.H1.0]  CALL  ERE [IER_EL, LINE, IQ, IGRAPH, 656 56) 

GOTO  5656 
END  IF 

IF(PAR_CH.BO. 'EK')  THEN 

CALL  EKU  (IEK,  LINE,  IQ,  IGRAPH, 67074) 

7074  IFdEK.EQ.1. AND.IER _AS.B1.0J  CALL  ERE[IER_EL,LINE,IO, IGRAPH, 65757) 

GOTO  5757 
END  IF 

IFIPAR_CH.B1.  ' EE'  .AND. IEK. GO.  1 )  THEN 
CALL  ERE (IER_EL, LINE, IQ, IGRAPH, 65757) 

ELSE  IF(PAR_CH.H1.  ' EE'  .AND. IEK. EQ.O)  THEN 

TYPE  *, 'Elevation  Bust  be  knoan  in  order  to  introduce  error' 

GOTO  1118 
END  IF 

IF(PAR_CH.B1. 'AK')  THEN 

CALL  AKUdAK, LINE, IQ, IGRAPH, 67076) 

7076  IF1IAK.B1.1  .AND. IER_EL. BQ. 0)  THEN 

CALL  ERA ( I ER_AS , LI NE , IQ , I NCASP , I G RAPH , 657  57 ) 

END  IF 
GOTO  5757 
END  IF 

IF(PAfi_CH.Bl.  'AE'  .  AND.  IAK.  ED.  1  .AND.IER_EL.  EQ.O)  THEN 
CALL  ERA [IER_AS, LINE, IQ, INCASP, IGRAPH , 65656 ) 

ELSE  IF(PAR_CH .  BQ.  '  AE'  .AND.  IAK.  Bl.  0)  THEN 

TYPE  *, 'Aspect  aust  be  knoan  In  order  to  Introduce  error' 

GOTO  1118 
END  IF 
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IF(PAfl_CH.B2. 'AS')  THEN 

CALL  ASP f MINASP,  MAXASP, INCASP, LINE, IQ , IGRAPH , 0707 B) 

7078  IF(MINASP.NE.HAXASP)  THEN 

CALL  AKU(IAK, LINE, IQ, IGRAPH, 670  80) 

7080  IFIIAK.EQ.I  .AND.  IER_EL.  EQ.  0)  THEN 

CALL  ERA(IER_AS, LINE, IQ, INCASP, IGRAPH, 672) 

END  IF 
END  IF 

72  GOTO  5656 

END  IF 

IF(PAR_CH.EQ. 'NE' )  CALL  NDS (IS3, IS4, NEX, IQ, IGRAPH, 05757) 
IF(PAfl_CH.  EQ. 'F£')  CALL  FEAIIYA, IYW, RR, IQ, IGRAPH, 19, LINE, 0505) 
IF(PAR_CH.EQ.  'DO')  THEN 
CALL  D0M(IQFT1,IQFT2, 10, IGRAPH, 6525) 

525  IFdQFT1.BQ.1J  CALL  FE/>  (IYA,  IYH, RR,  IQ, IGRAPH,  1 8, LINE,  0505) 
IF(IQFT2.BQ.1J  GOTO  5555 
END  IF 

IF1PAR_CH.EQ. 'NA' .AND.IQFT1 .GQ.1 )  CALL  NAG (J NAG, AN AG, 05757) 

C 

GOTO  1118 
C 

C  Plotting  routine 

C 

1117  TYPE  V  1 

TYPE  SNR_HIN  SNR_MAX  SNR_INC  '  ,SNR_HIN,  SNR_MAX,  IVT 
N  DS= IB IG_L00P-1 

CALL  V_PL0T ( Y_PL0T, NOS , IRHIS, LINE, IGRAPH, SNR_HIN, SNR_MAX, IVT) 
IFIYN.BQ.  ' S'  J  THEN 
STOP 
END  IF 

IFIYN.BQ. ' G ' )  GOTO  11111 
C 

C  End  of  first  graph...  continue  If  desired 

C 

INUMG=IQ 

IBIG_L00P=1 

IQ=1 

IGRAPH=IGRAPH+1 
DO  1=1,70 
LINE(II)  (1:1)  =  '  ' 

BID  DO 
C 

TYPE  *, 'Type  PO  to  chenge  polarization' 

TYPE  *,'  AH  to  chenge  rel/anplltude' 

TYPE  *,  '  Ffl  to  change  frequencies' 

TYPE  '  EL  to  change  elevations' 

TYPE  *,  '  EK  to  chenge  un/kno«n  elev' 

TYPE  *, '  EE  to  change  no/error  'In  elev' 

TYPE  *, '  AS  to  change  aspects' 

TYPE  *, '  AK  to  change  un/kno«n  aspect' 

TYPE  *, '  AE  to  change  no/error  in  aspect' 

TYPE  *, 1  NE  to  change  nunber  of  expts1 
TYPE  *, 1  FE  to  change  features' 

TYPE  ",  '  DO  to  change  donalnB1 

TYPE  *, '  EX  to  exit  from  change  aession' 


348 


o  u  u  u 


8000 


i  i 


TYPE  *, 

TYPE  *, 'Input  change1 
ACCEPT  1116,GRA_CH 
C 

IF (GRA_CH . B3.  'EX' )  GOTO  5656 

IF(GRA_CH.EQ.  'DO'  )  CALL  OOMdQFTI ,  IQFT2,  IQ,  IGRAPH,  G80  00] 

IF(GRA_CH.EQ.  ' PO 1 )  CALL  PZMIPOL, LINE, IQ, IGRAPH, G8000) 

IFIGRA_CH.BQ. 'FR' )  CALL  FREIFMIN.FINC, NF, LINE, IQ, IGRAPH, &8000) 
IF(GRA_CH.BQ. 'AH' )  CALL  RALdRA.lQ, IGRAPH, 60000) 

IF(GRA_CH.BQ. 'EL')  THEN 

CALL  ELMIELEV, LINE, IQ, IGRAPH, S18OIO) 

8010  IFdELEV(3)  .EQ.2)  CALL  EKIJ dEK, LINE, IQ, IGRAPH, &8020) 

8020  IFdEK.ED.1 .AND.IER _AS.EE.O)  CALL  ERE(IER_EL, LINE, IQ, IGRAPH, 68000] 
GOTO  8000 
BID  IF 

IF(GRA_CH.S).  'EK' )  THEN 

CALL  EKUdEK,  LINE,  IQ,  IGRAPH,  &8D30) 

8030  IFdEK.  EQ.  1  .AND.  IER_AS. EQ. 0)  CALL  EREdER_EL, LINE,  IQ, IGRAPH, GBOOO] 

GOTO  8000 
END  IF 

IF(GRA_CH.EQ. 1  EE1  .AND.  IEK. BQ.1  ]  THEN 
CALL  ERE dER_£L, LINE,  IQ, IGRAPH, &800D) 

ELSE  IF(GRA_CH.EQ. ’EE'.AND.IEK.Hl.O)  THEN 

TYPE  *, 'Elevation  duet  be  known  In  order  to  introduce  error1 
GOTO  8000 
END  IF 

I F l GRA_CH .  EQ .  1 AK 1 )  THEN 
CALL  AKU11AK,  LINE,  IQ, IGRAPH,  88040 J 
8040  IF(IAK.EQ.1  .ANO. IER_EL. ED. 0)  THEN 

CALL  ERAdER_AS,  LINE,  IQ,  INCASP,  IGRAPH ,  &8000] 

END  IF 
GOTO  8000 
END  IF 

IF(GRA_CH.BQ.  'AE'  .AND.  IAK.  HI.  1  .AND.  IER_EL.  BQ.  0)  THEN 
CALL  ERAdER_AS,  LINE,  IQ,  INCASP,  IGRAPH, &B0 00) 

ELSE  IF[GRA_CH.BQ. ' AE 1 .AND. IAK. BQ. 0)  THEN 

TYPE  *,  'Aspect  wust  be  known  in  order  to  introduce  error' 

GOTO  8000 
END  IF 

IF(GRA_CH.BQ. ' AS' ]  CALL  ASP1MINASP, HAXASP, INCASP, LINE, IQ, IGRAPH, &8000) 
IF(GRA_CH.H1.  *  NE '  J  CALL  NOS  (I  S3 ,  IS4,  NEX,  IQ,  IGRAPH,  &8000) 

IF(GRA_CH.EQ. 'FE'J  THEN 
18=1 

CALL  FEAdYA,  IYW,  RR,  IQ,  IGRAPH,  1 8, LINE,  &80 50) 

8050  1  8=0 

GOTO  8000 
END  IF 
C 

STOP 

END 
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SUBROUTINES 


1 1 1 1 1  III  III  1 1 1  Ml  1 1 1 II 1 11 1 1 1 II I  111  1 1 1 1 1  III  1 1 !  i  1 1 1 1  III  1 1 1 1 1 1 1 1 1 1 1  DISTJF 


This  subroutine  calculates  the  nearest  neighbour 
distances  betaeen  any  tao  classes  in  the  date  base 

SUBROUTINE  DIST_F(IRA, IYW, IYA, A,#, AN, WN, NF, NS,RR, RK, D, JNAG, ANAS) 


REAL  DdlO.IIOJ.AMIO.aOJ.WdlO.SOJ.ANlllO.SOJ.WNmO.aOJ.DjrlSO) 
REAL  MEAN, SIGMA 

DO  20  1=1 ,  NS 
DO  20  IT=1 ,NS 
0(1, IT)=0. 

DO  23  K=1 ,  NF-1 
D_T  ( K ) =0 . 0 

IF  (IYW.  EQ.  1  )D(I,  IT)=0(I,  IT]+(  (W{I,K)-WN[IT,  1C)  )*RK)**2 
IF(IYA.m.1JD{I,ITJ=0d,IT]+(Ad,K)-ANdT,K))**2 
IF(IYW.BQ.I)  D_T(K)  =  l (Wll, KJ-WUIT, K) )*RK)**2 
IFIIYA.ED.1 )  0_T(K)  =  (D_T(K)+  (A(I, K) -AN (IT , K) )**2) 

5  CONTINUE 

IF  ABSOLUTE  AMPLITUDES  ARE  USED  THEN  TAKE  INTO  ACCOUNT 
THE  LAST  FREQUENCY. 

IF  (IYA.  HI.  1  .AND.  IRA.  Bl.  0)0(1,  rn=D(I,  IT) + 

1 (A(I,NF]-AN(IT,NF) )**2 

IFdYA.BQ.1  .AND.IRA.BQ.O)  THEN 

0_T ( K )  =  (A(I,NF)-AN(IT,NFJ)**2 

U_E=NF 

ELSE 

L_E=NF-1 

BID  IF 

Eltnlnate  bad  distances, 
find  naan  and  variance. 

D_TSUM=0.0 
D_TSQA=0.0 
DO  H=1,L_E 

D_TSU  M=  D_TSU  M  +  D_T(M) 

D_TSQA=D_TSQA  +  D_T(M)**2 
END  DO 

MEAN  =  D_TSUM/L_E 

SIGMA  =  SORT ( (0_TSUA/L_E)~lHEAN)  **2J 


i 
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IFIJNAG.  BQ.  1 )  THEN 
DO  M=1  ,U_E 

IFl (D_T(MJ-MEAN)  .GE. ANAG*SIGMA)  D_T(M]=*£AN 
BID  DO 
END  IF 

DO  *=1,U_E 

D(I,IT)=D(I,ITJ+D_TIM] 

END  DO 


D(Ifnj=attHT(D(I,ITJ] 

CONTINUE 

RETURN 

END 


1 1 1 1 ! 1 1 1  1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1  1 1 !  1 1 !  I  !  11 1 1 !  1 1 1 1 !  1 1 !  1 1 11 1 1 1 1 1 1 1 1 


Thl6  subroutine  calculates  the  tlee  Coma  In  correlation  coefficients 
for  a  set  of  noise  contaminated  targets. 

SUBROUTINE  DIST_T(C,  NC,  SP,  SNP,  NF,  NS,  D,  NB ) 


REAL  DdlO.IIOJjSPHIO) , SNP (110)  ,StB) 

COMPLEX  CMIQ.aOJ.NCdlO.aOl.RFOO.FOa)  I  III  I II I  ARRAYS  MAY  NEED  AL 


DO  20  1=1 ,  NS 
DO  20  IT=1 ,NS 
DO  23  K=1  ,NF 

CALCULATE  PRODUCTS  OF  RADAR  RETURNS  OF  A  CLASS 
AND  COMPLEX  CONJUGATES  OF  A  TARGET'S  RETURNS 

RF[K)=C(I, K)*CONJG[NC(IT, K) 1 

CONTIMJE 

CALCULATE  THE  INVERSE  FAST -FOURIER 
TRANSFORM  (  IFR  }  OF  THE  PRODUCTS 

CALL  IDIR(RF,NF,M3,STM) 

NORMAL  12 E  THE  OUTPUTS  OF  THE  IFR 

D(I, IT)=STM/(2.*SP(I )*SNP[IT) ) 

CONTIMJE 

RETURN 

END 


1 1 1 1 1 II  1 1 1 1 1 1 1 1  1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  1 1 1  1 1 1  1 1  1 1 1 1 1 1 1 1 1  1 1 II 1 1 1 1 1  MN 
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This  subroutine  adds  gausslan  noise  to  the  original 
data  files  to  generate  test  targets 

SUBROUTINE  ttU VR, IS3, IS4,C,NC, NF, NS, IYA, IYW, IEX,SAP,SP) 

COMPLEX  NC(110,30),CI110,30) 

REAL  SAP(IIO) ,SP(110) 

The  Sauaslan  noise  Is  additive  and  ha6  variance  VR 
end  mean  0, 

Equal  aoounts  of  noise  are  added  to  the  real 
and  Imaginary  parts  of  the  data  points. 

VR1=VR/2. 

DO  10  1=1,  NS 

Reset  the  seeds  for  each  test  target. 

IS3=IS3-4 
IS4=IS4-6 
00  10  J=1 ,  NF 

Generate  t»o  Gaussian  numbers. 

CALL  GAUSS (IS3,0.,VR1  ,S3J 
CALL  GAUSS[IS4,0.,VR1 ,S4) 

Generate  a  test  target 

NC(I,J)=CHPLX(REALlC(I,J])+S3,AIMAG(C[I,J))+64) 

If  the  phase  returns  ere  unknoan,  set  then  to  zero. 

IF [IYA.  ED. 1 .AND. IYW.BO. 0)NC(I, J)=CMPLX(ABS[C[I, J) 1+63,84) 

RETURN 

END 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  DATA 

This  subroutine  reads  a  data  file  generated  by 
the  CATLOG.FOR  scaling  program 

SUBROUTINE  QATA(MINASP, MAXASP, INCASP, FMIN, FMAX, FINC, NF, LINE) 

COMPLEX  C(110,30) 

REAL *4  A(110,30),P(110,30),W(110,30),AM(500),FT1t500) 

CHARACTER  *2  FPOL, FEL, FLNAMtS) ,  ASP (23)  ,AIR[4) , SHIP (6) 

CHAR  ACTS)  INFILE*14 
CHARACTB1*!*)  LINE(II) 

INTEGER  IP0LC5) ,IELEV(3) 

COMMON  /BLK1/  IPOL, IELEV, NS, C, A, P, IRA, 10, IGRAPH 


->  ’  .  r.'.  -«■ 


:  v  '-v-  .  .'.vViSv.-Xv.  \ 
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ITP0LH=0 
GOTO  5050 

ELSE  IF[IPQL(3)*ITP0LX.Ba.1 )  THEN 
FP0L(2:2)=,X' 

XTP0LX=0 
END  IF 

IEL15=1 

IEL27=1 

DO  IE=1,IELEV(3) 

IFIIELEV (1  )*IEL15.E0.1 )  THEN 
FEL(1 :2)=,15l 
IEL1 5=0 
GOTO  5060 

ELSE  IF(IELEV(2),IEL27.BQ.1 }  THEN 
F£L(1 i 21 =*  27  * 

IEL27=0 
END  IF 

DO  40  1=1 ,  NST 

DO  111  IAP1=MINASP, MAXASP, INCASP 
IBASE=IBASE+1 


Loop  for  ae  sany  elevations 


I  Loop  for  bb  sany  targets 
I  Loop  for  as  nany  aspects 


Convert  aspect  angle  to  an  Index  so  thet  file  name  can  be  foraed 

IF(IAS.BQ.I)  THEN 
IF (I API .GT.  95)  THEN 
IF  [  I  API.  BU.  100)  IASP=21 
IF( IAP1.EQ.170)  IASP=22 
IFlIAP1.Ba.1B0)  IASP=23 
ELSE 

IASP=NINT (FLOAT l I API )/5. ) +1 

END  IF 

ELSE 

IASP=IAP1/15+1 
END  IF 


Conplle  filename  : 


R:**FVM15 
FH  27 
FX 


**  =  Target  name 
##  =  Target  aspect 
F  =  Full  scale 
V,H,X  =  Polarizations 


INFILEd  :2)  =  'R: ' 
INFILE(3:4)=FLNAM[I) 
INFILE (5: 6) =F POL 
INFILE (7: B)=ASP(IASP) 
INFILE[9:10)=FEL 
INFILEdl :  1 2 )  = '  .0' 
INFILE [13: 14)=' AT' 
INFILE=INFILE(3:14) 
TYPE  6060, INFILEd  :B) 
PRINT  6060 .INFILE (1:8) 
FORMAT  (1X,AB) 


V  /I  •  «  *  -  «  * 


*  '  ,*•  ‘ 
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CALL  TRT(INFILE,AM,PH,TFMIN,TFINC,SF3 


C 

C  Note  the  data  f 1  las 

C  are  already  scaled  by  the  scale  factor 

C 

IMAX=(FMAX-TFMIN)/TFINC+1 
IMI  N=  ( FMIN-TFMIN )  AFI NC+1 
IC=FINC/TFINC 
NF1=0 

DO  2111  J=IMIN, IMAX, IC 
C 

C  Convert  aapltude  from  cScb**2  to  neperB  b**2 

C  by  antllogglng  and  division  by  100 

C 

NF1=NF1+1 

A1IBASE,  NF1  3  =10.  ••(AMI  J3/20. 3/1 00. 

2111  P(IBASE,NF1 )=PH  [J] 

111  CONTINUE 

40  CONTIMJE 

END  DO 
END  DO 
C 

C  End  aaln  loop  for  collecting  target  data  1 1  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  MAIN  LOOP 

C 

NS=  XBASE 

C  NS=TotaL  nuober  of  targets  =  fpol  x  #asp  x  felev  x  #terQetl=8  for  ship) 

C 

C  Split  up  A,P  Matrix  Into  2  parts  to  silo*  V/H  to  be  done 

C 

IFIIP0L(4)  .Btt.1 )  THEN 
NS=NS/2 
DO  1=1, NS 
DO  J=1 ,  NF1 

A(I,J)=A(I,J)/A(I+N6,J) 

PlI,  J)=P(I,  J)-P(I-rNS,  J) 

END  DO 
BID  DO 
END  IF 

6664  DO  1436  1=1, NS 
DO  1436  J=1  ,NF 

1436  C(I, J)=CMPLX(A(I,d)*COS IF (I, J) J , All, J)*SIN(P [I, J) 3  3 
IFINF.LE.NF1  )G0  TO  1435 

DO  1437  1=1, NS 
P(I,NFJ=0 
C 

C  If  It  1b  not  possible  to  supply  all  of  the  frequencies  requested 

C  fill  the  regaining  array  points  alth  zeros 

C 

A(I,NF)=0 

1437  C(I,NF3=0 

1435  RETURN 

END 

C 

c  mmiiimii!iiimiiiMmimmimiiuiniiiiiiiiii!iMmiiii!ii 
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nnnnnnn  on  o  n  n  n  n  n  ro  -»  n  o  n  n 


This  subroutine  calculates  ths  variance  o'  a  sat  of  nuabars 

SUBROUTINE  VARNIA,  NF,  NS,  VA,  INC) 

REAL  A(110,30) 

RMEAN=0 

DO  10  1=1, NS 

00  10  J=1 ,  NF,  INC 

RHEAN=A(I,J)+RMEAN 

Rlt  AN=RMEAN/  ( NS*  f  NF/INC  ) ) 

VA=0 

00  20  1=1, NS 
00  20  J=1 , NF, INC 
VA=VA+ ( A ( I , J ) -RHEAN ) **2 
VA=VA/INS*[ NF/INC)) 

RETURN 

END 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  III  111  1 1 1 1 1 1 1 1 1 1 II  III  1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 II  GAUSS 
This  subroutine  generates  a  Gaussian  ran don  number 
SUBROUTINE  GAUSS! IS, AM, V,S) 

A=0.0 

DO  50  1=1,12 
A=A+RAN(IS) 

CONTINUE 

S=(A-6.)*SQflT(V)+AN 

RETURN 

BID 

I  1 1  111  1 1  I  1 1  1 1  I  I  I  I  I  I  1 1  I  I  III  I  I  1 1  I II)  1 1  1 1  1 1 1  1 1  I  I  1 1  !  I  1 1 1 1  III  1 1  I  1 1  I  1 1  I  IDIFT 


C 

C 

C 

40 

50 


Thi6  subroutine  calculates  the  inverse  Fourier  transform  of  a  set 
of  complex  data  points  and  f1nd6  the  maximum  of  the  results.  It 
assumes  that  the  deta  points  ere  symmetric  around  zero  frequency 

SUBROUTINE  IDIFT (RF,NF,NB, STM) 

COMPLEX  F I 32 ) ,RF(50) 

REAL  S(8) 

COMMON  /BLK2/S.F 

NP=32 

DO  40  1=1,  NP 
FlI )=(0.,0. ) 

K=0 

00  50  I=tC+1  , NB+NF 
K=K+1 

FlI  )=RF(K) 

F(NP+2-I)=C0NJG(RF(K) ) 


Call  a  standard  IFFT  In  the  scientific  library 

CALL  F0RT(F,6,S,2,IFERR) 

IF (IFERR.NE.O) PRINT  *,'  SIR  IN  IFFT' 

Find  the  maxlaun  of  the  outputs  of  the  IFFT 

STH=-10000. 

DO  500  1=1,  NP 

IF ( REAL ( F ( I ) ) . GT. STM J ST#=REAL ( F (I J ) 

RETURN 

END 

i  uni  111  ii in  iiiii  111 1 1  ii  ii  mi  ii  iiiii  I  min  mi  mmii  111  mi  hum 

Original ly  developed  by  J.Chen 

Modified  by  N.Chaaberleln  May  1BB4  for  Inclusion  In  TAFCAL 
This  subroutine  plots  the  results  of  classifications. 

SUBROUTINE  V_PLOT(YT, ND6, NPT, LINE, IGRAPH, INX1 , INX2, INX3 ) 

REAL  XCS0),Y(60},YT110,50) 

CHARACTER* (•]  LINE(II) 

IF  [IGRAPH.  EQ.1 )  THEN 

TYPE  *, 'INRJT  MIN,  MAX,  AND  INC  FOR  S/N' 

ACCEPT  *,XMIN,XMAX,XINC 
ELSE 

XMIN=FLOAT ( I NX1 J 
XMAX=FLQAT ( I NX2 ] 

XINC=FLQAT(INX3] 

END  IF 

NPT=(XMAX-XMIN)/XINC+1 . 

J=0 

DO  100  FW=XMIN,XMAX,XINC 

J=J+1 

X[JJ=FW 

D6X=(XMAX-XMIN)/S. 

D6Y=100./6. 

6PAX=5. /FLOAT IWPT-1 J 
SPAY=6./10. 

CALL  VPL0TS(0,0,0] 

CALL  PL0T11. 6,1. 6,-3) 

CALL  NEWPENI3) 

CALL  AXIS[0.,0., 'POST-PROCESSING  S/Yl  IN  OB '  ,-2B,5.,0. ,XMIN, D6X,BPAX,0) 
CALL  AXIS(0.,0.f  'MISCLASSIFICATION  PERECNTAGE'  ,28,6.,  90. ,0. ,DGY, SPAY, 0) 
CALL  NEWPEN ( 1 ) 

CALL  GRID  10. , 0 . , NPT-1 , SPAX, 1 0.SPAY, ' 33333333 ' ) 

DO  60  1=1, N06 
DO  70  J=1,NPT 
Y(J)=YTII, J) 


">*•  .  "  »  "  W  v  %  *  Jh  ’•-■v  "  *  \V  *  * 
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CONTINUE 
ISYM=-1*I 
CALL  NEWPEN13) 

60  CALL  STRYP [X,XMIN, D6X, Y,0. , D6Y, NPT.0.5, ISYH J 
C 

00  9  676  1=1,11 

IF (LINE (I ) (1:10) .HI. 1  •)  GOTO  9676 

HEI=B.*-FL0AT(I-1  )*0.2 
ILENL=LEN l LINE (I ) ) 

CALL  NENPENL2) 

CALL  SYW0L(0.0,HEI,0.1  ,SREF(LINE(I ) ) ,0.0, ILENL) 

9676  CONTINUE 

C 

CALL  PL0T(0.,0., 999) 

CALL  PL0TN0N[IM6) 

TYPE  *, 1  ' 

TYPE  *,  'Plot  again  ?  Y  or  N' 

ACCEPT  99,  PAG 
99  FORMAT  (Alj 

IF  (PAG. BO. 'Y* )  GOTO  5 

CALL  LIBISPANNCt  RENAME  [  NFC 43  4  8.  FSB]*.  It  T  [NFC434B.NET]*.*1 
6,  'NL: 1 , 1 NL: 1 ) 

RETURN 
END 

mu  iii  1 1  mi  ii  mi  tiiini  1 1!  1 1  ilium ii  ii  iii  ii  mu  it  1 1  iimi  i  hum 

This  subroutine  Inputs  the  required  poLarlzetlon  pe meters. 

SUBROUTINE  PZN(IPOL,LINE,IO,IGRAPH,*) 

I  NT  EG®  IP0L15) 

CHARACT®  P0Lt5)*1,TLINE*5,TP0L(1D)*6 
CHARACT®*  (•)  LINE  (11) 

DO  1=1,6 

IP0L(I)=0  I  Reset  pol.  control  Indlcles 

®D  DO 

IFdGRAPH.BU.I .0R.IQ.EQ.1  ]  TH® 

TYPE  *, '  ' 

TYPE  *, 'Input  polerlzetlonls)  V,H,X' 

ACCEPT  7, POL 

FORMAT  (5A1 ) 

DO  1=1,6 

TPOL(IQ) (I :I )=P0L(I ] 

END  00 
ELSE 
DO  1=1,5 

POL(I)=TPOL(iani:IJ 
END  DO 
®D  IF 

As6l gn  pol.  control  psraneters 


a  n  n  n  n  n  n  n  n  -»  n 


00  1=1,5 

IFtPOLlD.Bl.  ’V)  IP0L(1)=1 
IFIPOL(I) .  HI. 1 M *  ]  IP0L(2)=1 
IF (POL Cl] .EQ. 'X' )  IP0L(3)=1 
TLINE(I:I)=POL(I) 

END  00 

IF  (IQ.  BQ.  1  .AND.IGRAPH.GT.1 )  THEN 
DO  1=1,70 
LINE(2) (I :I )='  ' 

BID  DO 
BID  IF 

IF1IQ. BQ.1 }  THEN 

LINE(2)  (1:18)=' POLARIZATION  1 

LINE ( 2) ( 20 : 25 ) =TLINE I 1 s 6) 

ELSE 

DO  1=70,20,-1 

IF (LINE (21 (I :I] .NE. 1  <]  THEN 
L2=I 
GOTO  53 
BID  IF 
END  DO 
C 

63  LINE(2)(L2+6:L2+10J=TLINE(1:6) 

END  IF 
C 

I F (POL 1 1 )  .BQ.  'V1  .AND.P0L12)  .BQ. '/'  .AND. POLO)  .BQ.  *H  ■ )  IP0L(4)=1 
C 

IPOL (5)=IP0L(1 ) +IP0L( 2) +IP0LJ3]  I  Check  for  valid  Inputs 

IF(IP0L(5] )  6,5,11 


1  TYPE  • 

TYPE  *, 'You  heve  seLected' 

IF(IPOL(1 ) .BQ.1 .AND. IPOL (4) .NE.1 )  TYPE  *,'Vpol.* 
IF  (IPOL  (2)  .BQ.1  .AND.  IP0L(4)  .NE.1 )  TYPE  *, 'H  pol.' 
IF(IP0L(3)  .BQ.  1  ]  TYPE  •, 'X  pol.' 

IF  (IPOL  (4)  .BQ.1 }  TYPE  *, 'V/H  pol.' 


Print  out 


IFdPOLd  1  .B1.1  .AND.  IP0L(4)  .NE.1 ) 
IF (IP0L(2) .BQ.1 .AND. IP0L(4) .NE.1 ) 
IF(IP0L(3] .BQ.1 ]  PRINT  CrosB 

IF(IP0L(4) .BQ.1 )  PRINT  '  V/H 


PRINT  '  Verticle  polarization' 
PRINT  *, 1  Horizontal  polarization' 
polarization' 
polarization' 


RETURN  1 
BID 
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This  subroutine  Inputs  the  required  elevation  paraeetera. 
SUBROUTINE  ELNtlELEV, LINE, IQ, IGRAPH, •} 

INTEGER  IELEV13) 

CHARACTER  ELE*5,TLINE*5,TEL(10)*5 
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CHARACT®*  (• )  LINE  Ml] 


IFIIGRAPH.BQ.I .0R.IQ.EQ.1 )  TH® 

TYPE  *, •  • 

TYPE  •, 'Input  elevation  englefs)  15,27  1 

ACCEPT  B,ELE 

FORMAT  (A5) 

TEUiaj(1:5)=ELE(1:5] 

ELSE 

ELE(1 :5]=TEL(IQ)  (1  :S] 

END  IF 

IFdQ.ED.I  .AND.I6RAPH.GT.1  ]  THEN 
DO  1=1,70 
LINE(4]  d:I)='  • 

END  00 
®D  IF 

IFda.EQ.1)  IN® 

LINE  (4)  (1:18)='  ELEVATION  (DEG.)  1 
LINE{4) (20:25)=ELE(1 :5) 

ELSE 

DO  1=70,20,-1 

IF  (LINE  (41  (1 :1 )  .NE. '  ')  TH® 

IEND_L=I 
GOTO  53 
®D  IF 
END  DO 
L4=IEND_L 

LINE 1 4)  (L4+5:L4+10)=ELE(1 :6) 

®D  IF 

Sat  elevation  control  paranetera 

00  1=1,3 
IELEV(I)=0 
®D  DO 

IF(ELE(1:2).H1.  '15' .0R,ELE(4:5)  .HI.  ’15’)  IELEV(1)=1 
IFIELEI1 :2)  .HI.  ‘27 1  .QR.ELE(4:5)  .HI.  '27')  IELEV(2)=1 
IELEV ( 3 ) =IELEV ( 1 ) +IELEV ( 2) 

IFdELEVOJ)  13,13,15 

Print  out 

IF(IELEVd)  .EQ.1  J  PRINT  '  15  deg.  elevation' 

IF ( I ELEV (21 .BQ.1 }  PRINT  '  27  deg.  elevation’ 

RETURN  1 
END 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 11 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  f  1 1 1 
This  subroutine  Inpute  the  required  e  priori  Information  for  elevation 
SUBROUTINE  EKU (IEK, LINE, IQ, IGRAPH, *) 
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CHARACTERS*)  LINE C 1 1  ] 
CHARACTS1  TEK(10)*1 ,EK*1 


IF1IQ.EQ.1  .OR. IGRAPH. BQ.1 }  THBl 
TYPE  *, '  * 

TYPE  •, 1  Elevation  known  - >  Type  K1 

TYPE  *, 1  Elevation  unknown  - >  Type  U1 

ACCEPT  10,  EK 
FORMAT  (A1) 

TEKdQ) (1 :1  )=EK(1 :1 ) 

ELSE 

EK(1 :1 )=TEK(IQ)  11:1) 

END  IF 

IFIEK.BQ.  •  K*  J  THEN 
IE  11=1 

PRINT*,1  Elevation  aeeuaed  known1 

ELSE  IFIEK.EQ.  *U')  THEN 

IEK=0 

PRINT*,1  Elevation  aeeueied  unknown1 

ELSE 

GOTO  1 

BID  IF 

IFdEK.EQ. 1 .AND. LINE (3) (1:3) .ED. 1  ')  THEN 

LINE (3)  (1:30)='  ELEV  ASSUMED  KNOWN  ’ 

ELSE  IF  (IEK. EQ.O.AND. LINE (3] (1 :3] .EQ. '  ')  THEN 

LINE(3)  (1 :30]='ELEV  ASSUMED  UNKNOWN  ' 

END  IF 

IF  (IQ.  GT.1  .AND.  IEK.  63.0}  CINE (3) (31 . -41)='/  UNKNOWN ' 

IF  (IQ.  GT.1  .AND.  IEK.  BQ.1 )  LINE(3)  (31 :41  )  =  '/  KNOWN  ’ 

RETURN  1 
BID 
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Thle  eubroutlne  Inputs  error  In  elevation 

SUBROUTINE  ERE(IER_EL, LINE, IQ, IGRAPH, *) 

CHARACTER* (•)  LINE (11) 

CHARACTER  TLINE*3,TB1_L[10)*1,BI_EL*1 

IFtlQ. BQ.1. OR. IGRAPH. BQ.1)  THEN 
TYPE  *,'  ' 

TYPE  *, 'Type  Y  or  N  for  error  In  elevation' 
ACCEPT  1 0 ,  ER_EL 
FORMAT  (A1) 

TBL.L(IQ)(1:1)=B)_EL(1:1) 

ELSE 

ER_EL(1 :1 )=TER_L(IQ) (1:1) 

END  IF 


IF(ER_EL. EQ. ' Y* )  THEN 


IER_EL=1 

PRINT  *, 1  Error  of  16  deg  Introduced  In  elevation1 

ELSE  IF(ER_EL.BQ. ' N‘ )  THEN 

IER_EL=0 

PRINT  •, 1  No  error  In  elevation  angLe1 

ELSE 

GOTO  1 

END  IF 

IF  (LINE  (11)  (1 :3)  .EQ.  1  *  .AND.  IER_EL.EQ.1 )  THEN 

ENC0DE(20,20,L1NE(11) JIQ 
FORMAT CELEV  BIR  IN  CURVE ',13) 

ELSE  IF  (LINE  (11)  (1 :3]  .NE. 1  '  .AND.IER_EL.  BO.  1 )  THEN 

BiCODE(3,30,TLINE)IQ 

FORMAT (13) 

DO  1=70,16,-1 

IF l LINE (11)  (I :I ]  .NE. 1  ')  THEN 

L11=I 

GOTO  40 

END  IF 

END  00 

LINE(II)  (L11+5:L11+8)=TLINE(1:3) 

END  IF 

RETURN  1 
END 
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This  subroutine  selecte  frequency  or  ties  donain  algorithms 

SU.  ROUTINE  DOM  ( IQFT1 ,  IQFT2 ,  IQ ,  IGRAPH ,  • ) 

CHARACTER  TUFT(10)*1 ,0FT*1 

IFUa.BQ.1. OR. IGRAPH. BQ.1)  THEN 
TYPE  *,  '  ' 

TYPE  *, 1  Input  Classification  donain  F  or  T1 

ACCEPT  2,QFT 

FORMAT  (A1 ) 

TOFT  (IQ)  (1s1)=QFT(1:1) 

ELSE 

QFT(1 :1  )=TUFT (10)  (1:1) 

END  IF 

IF  (OFT.HJ.  'F')  THEN 

IQFT1=1 

IQFT2=0 

PRINT*,  1  Classification  in  frequency  donain' 

ELSE  IFtQFT.BD. 'T' )  THEN 

IQFT2=1 

IQFT1 =0 

PRINT*,  1  Classification  in  tine  domain1 

ELSE 

GOTO  1 

BID  IF 


1  ClBSSif icetion  in  time  domain1 


VvVvVvv'vVv\-Vv -V ./■„  •  -  . -v-‘ 


c 


RETURN  1 
BIO 


C 

c 

c 

c 

c 

c 


c 

c 

c 


c 


1020 

c 


1025 


S3 


C 


2848 

C 
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This  subroutine  inputs  required  aspact  anglaa. 

SUBROUTINE  ABP(MXNASP,t*XASP,  XNCASP,  LINE,  IO.IBRAPH,*) 

CHARACTER  TLINE*12 
CHARACTER^*)  LINE (11) 

INTESBI  TMXNA(IO)  ,TMAXA(10)  ,TXNCA(10) 

Specify  target  aspact  anglaa 

IF(ia.ED.I.OR.IBRAPH.ED.I)  THBI 
TYPE  •, '  ' 

TYPE  •, 'Input  MIN, MAX, INC  aspect  angles1 

ACCEPT  *, MINASP,  MAXASP, INCASP 

TMXNA(IB)*4(INASP 

TMAXA(ia]=MAXASP 

TINCAIIQ)=INCASP 

ELSE 

MINASP*TMINA(IO) 

MAXASP>TMAXA(ia) 

INCASP=TINGA ( IQ ) 

END  IF 

IF(IB. BQ.1  .AND. IGRAPH.GT.1 )  THEN 
DO  1*1,70 
LINE(6J(I:I)*«  • 

BID  DO 
END  IF 

IF(IQ.B.I)  THBI 

BICODE (30, 1 020 , LINE (6 ) ] MINASP,  MAXASP, INCASP 
FORMAT ( 1 MIN, MAX, INC  ASPECT ',314) 

ELSE 

BICODE (1 2,1 025, TLINE ) MINASP, MAXASP, INCASP 
FORMAT (314) 

DO  1*70,30,-1 

IF (LINE (6) (I :I) .NE. '  ')  THEN 

IEND_L=I 

GOTO  53 

BID  IF 

END  DO 

LB=IEND_L  ’ 

LINE(E)  (L8+1  :L8+1  )*' , ' 

LINE(S)  (L6+2:L6+14)*TLINE(1 : 12) 

END  IF 

PRINT  284S, MINASP, MAXASP, INCASP 

FORMAT  (•  MIN, MAX, AND  INC  of  the  aspects . ',314) 
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non  o  nnnnn 


RETURN  1 
END 
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This  subroutine  Inputs  required  frequencies. 

SUBROUTINE  FREfFMIN, FINC, NF, LINE,  10, 16RAFH,  •) 

CHARACTER  TLINE*3 
CHARACTER*!*)  LINE111) 

REAL  TMINF(IO) , TINCF  (10) 

I  NT  EG  B)  TNFtIO) 


Specify  frequencies 

IFdQ.EQ.I  .0R.I6RAPH.BQ.1 ]  THEN 

TYPE  *, '  ' 

TYPE  *, 'Input  FMIN,FINC  end  no.  of  frequencies' 

ACCEPT  *,  FNIN, FINC,  NF 

TMINFdQ)-FMIN 
TINCF (IQ) -FINC 
TNF(ia)=NF 
ELSE 

FMIN=TMINF(IQ) 

FINOTINCF(IQ) 

NF=TNF(IQ) 

END  IF 
C 

IFdQ.EQ.I  .AND. IGRAPH.GT.1 )  THEN 
DO  1=1,70 
LINE17) II jI)='  ■ 

END  DO 
BID  IF 

IFdQ.EQ.I)  THBI 
Bl CODE  (20, 1030, LINE  (7)  INF 
1030  FORMAT ( 'NO  OF  FREQUENCIES 1 ,13) 

ELSE 

BICOOE (3 , 1 035 , TLINE ) NF 
1035  F0RMAT(I3) 

DO  1=70,20,-1 

IF  (LINE  (7)  (1:1) .  NE. 1  •]  THBI 

IEND_L=I 

GOTO  53 

BID  IF 

END  DO 

53  L7=IEND__L 

UNEC7)  (L7+6:L7+S)=TLINE(1 :3) 

END  IF 
C 

FMAX=FMIN+ ( NF-1 ) *FINC 

PRINT  2833,  FM1N,  FMAX,  FINC,  NF 

2B38  FORMAT  ('  MIN, MAX, INC  fc  No.  of  the  frsqs .  ',3F7.3,I4) 

C 


RETURN  1 


nnnnn  n  n  n  -»  -*  n  o  nnnnn 


END 
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This  subroutine  Inputs  required  s  priori  Inforwatlon  for  sspset  sngls 

SUBROUTINE  AKU  dAK,  LINE,  IB.ISRAPH,  •) 

CHARACTBI’l*)  LINE (11) 

CHARACTER  TAIC11Q1*1,AK*1 

IFdQ.ES.1 .0R.I6RAPH.BB.1 )  THEN 
TYPE  \ '  « 

TYPE  •,  •  Aspect  knosn  - >  TYPE  K' 

TYPE  *, 1  Aspect  unknown  - >  TYPE  U* 

ACCEPT  19,AK 

FORMAT  (All 

TAK(Itt)  (1i1)wAK(1:1) 

ELSE 

AK(1 :1 )=TAK(IB) (1 :1) 

BID  IF 

IF  (AK.BD.  'K1  ]  THBI 

IAK=1 

PRINT*,  1  Aspect  eesused  known' 

aSE  IF  (AK.m.'U'l  THEN 
IAMO 

PRINT*,  '  Aspect  essiasd  unknown' 

aSE 
GOTO  1 
BID  IF 

IFdAK.  ED.1  .AND. IQ. BQ.1 )  THEN 
LINE (6)  (1 :30)  =  ' ASPECT  ASSUMED  KNOWN  • 

ELSE  IFdAK.EB.O.AND.IQ, BQ.1 )  THBI 
LINE  (6)  (1 : 30)*' ASPECT  ASSUMED  UNKNOWN  • 

END  IF 

IFdQ.BY.1  .AND.IAK.EB.O]  LINE  IB)  (31  :«1  )*'/  UNKNOWN' 

IFdQ.ST.1  .AND.IAK.BD.1 )  LINE(B)  (31 :41  )«='/  KNOWN  • 

RETURN  1 
END 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

This  subroutine  selects  relative  anplltude  feature. 

SUBROUTINE  RALdRA,  M,  IS  RAW,  *) 

C 

CHARACTER  TRA(10)*1 ,RA*1 
C 

IFdQ.ED.1 .0R.I6RAPH.BD.1  ]  THBI 
1  TYPE  *,'  ' 

TYPE  *,'Usa  rslatlve  swplltuds  ?  Y  or  N' 

ACCEPT  17, RA 
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17 


FORMAT  (A1 ) 

TRA(IQ)l1:1)~flA(1:1) 

ELSE 

RA(1:1)ETRA(IQ)  (1:1) 

END  IF 

IF  (RA.BD.  'Y'l  THBI 

IRA=1 

PRINT*,  1  Relative  amplitude  uaed1 
ELSE  IF  (RA.BD.  *  N*  ]  THEN 
IRA=0 
ELSE 
6010  1 
BID  IF 

RETURN  1 
END 

mu  1 1  nun  ii  i  ii  iiiiiiiiin  mu  ii  ii  ii  mu  iii  iii  iii  mi  ii  i  iii  ii  i  ii  1 1 

This  subroutine  Inputs  seeds  for  randosi  no.  generator,  end  number 
of  experl eents. 

SUBROUTINE  N0S(IS3,I64,NEX, IQ.ISRAPH,*) 

I  NT  EG  B)  TNEX110] 

Input  two  arbitrary  large  odd  Integers 

which  will  serve  ae  seeds  for  generating  ran doe  numbers 

IFIIO.B2.1. 0R.I6RAPN.ED.il  THEN 
TYPE  \  '  • 

TYPE  *, 'Input  two  arbitrary  large  odd  Integers' 

ACCEPT  *,IS3,IS4 

TYPE  *, '  1 

TYPE  *, 'Input  number  of  experiments' 

ACCEPT  *,NEX 

TNEX(ia)=NEX 

ELSE 

NEX=TNEX(IQ) 

END  IF 

PRINT  30,183,164 
PRINT  20.NEX 

FORMAT!'  Largs  Integers  .  ' ,2IB) 

FORMAT!'  Number  of  sxparlments  . .  ',13) 

RETURN  1 
BID 

mini  m  mmmmmmmmmmmmmmimiiimi 

This  subroutine  selects  error  in  aspect  angle 
SUBROUTINE  B!A(IER_AS,LINE, IQ, INCASP, IGRAPH,*) 


IS3.IS4 

i  ■ 


'Input  number  of  experiments ' 


c 

CHARACTER* (•)  LINE (11] 

CHARACTER  TLINE*3,TBLA(10)*1,BI_A6*1 
C 

C  Not*  there  Must  b*  2  or  3  aspect*  to  uaa  the  error  subroutine 

C 

IFdQ.BD.I  .0R.I6RAPH.ED.1 )  THBI 
1  TYPE  •, '  ' 

TYPE  *f'Typs  Y  or  N  for  error  In  aspect1 
ACCEPT  10,ER_AS 
10  FORMAT  (A1 ) 

TERJkllQ]  Cl  s1)=a_AS(1 :1] 

ELSE 

BLASC1 :1  )*‘TER_ACiani  :1 1 
END  IF 
C 

IF(ER_AS.EQ. *Y' }  THEN 
IER_A6=1 

PRINT  •, '  Error  Introduced  In  aspect1  ,INCASPf  1  deg1 
aSE  IFCEfLAS.m.  'N']  THEN 

ieflas=o 

PRINT  •, 1  No  error  In  aspect1 
ELSE 
GOTO  1 
BID  IF 
C 

IF  (LINE  (11]  (1:31  .BO.  •  1  .AND.  IERlAS.ES.  1)  THBI 

ENC0DE(20,2D,LINE(11))IO 
20  FORMAT!  'ASP  ERR  IN  CURVE  M3] 

ELSE  IFCLItECII]  (1 :3]  .NE. 1  '  .AND.IERJAB.Btt.l  J  THBI 

ENCODE C3,30,TLINElla 
30  F0RMAT(I3] 

DO  I«=70,1Bf-1 

IF (LINE (11) II:I).NE. 1  •)  THEN 

L11=I 

GOTO  40 

BID  IF 

END  DO 

40  LINE(II)  (L11+6:L11+B)*TLINEl1  s3) 

END  IF 
C 

RETURN  1 
BID 
C 

C  lllllltlllllltllllimiimillillllMIIIIIIIIIIIIIIIIIIIIIIIII 

C 

C  This  subroutine  selecte  nearest  neighbour  features. 

C 

SUBROUTINE  FEAdYA, IYWfRR,  10,  IGRAPH,I8,LINE,*) 

C 

CHARACTB1*l*)  LINE (11] 

CHARACTER  YNAOJ'l.-niAllOJ’a.T  CHAR*4,TLINE»6 
REAL  TRR(IO) 

C 

IFdS.ED.1 .0R.I6RAPH.ED.1  ]  THBI 


UUUUOUUt-  to  uuu  u  uuuuuuu 


TYPE  ' 

TYPE  •, 'Input  R=VAR(A)/VAfl[«) 1  I  Define  tha  varlanca  ratio 

ACCEPT  *,RB 

TRR(IQ)=flfi 

Specify  tha  faaturaa  as  folloas 

IYW  *  1  - >  use  ths  W'a 

IYW  =  0  - >  do  not  use  tha  M's 

IYA  =  1  - >  usa  the  aeiplltudas 

IYA  *  0  - >  do  not  uae  the  amplitudes 


TYPE  V  ' 

TYPE  Input  required  features  A, If1 
ACCEPT  657, YWA 
57  FORMAT  13A1) 

DO  1=1 ,3 

TWA(IQ) (I:I)=YWA(I) 

END  00 
ELSE 
DO  1=1,3 

YWA(I]=TWA(IOHI:I) 

END  DO 
RR=THR(ia) 

END  IP 

Assign  feature  control  variables 

IYW=0 

IYA=0 

DO  1=1,3  I  Search  for  daslrad  featurss 

IF  (YWA  (I  ]  .ED.  'A' )  IYA=1  I  aekes  Input  foraat  acre  flexible 

IF(YWA(I).BX.'W')  IYW=1 
END  DO 

IFt  CIYA+-IYW]  .EQ.O]  SOTO  1 

RETURN  1 
BID 

1 1 1 1 1 1 !  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  ■  1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

This  subroutine  foras  tha  Input  routine  for  an  algorithm  designed 
to  reduce  the  effects  of  lepulslve  noise.  This  algorithm  Is  still 
In  an  experimental  stage  and  needs  further  development. 

SUBROUTINE  NAS (JNA6, ANAS,*] 

C 

CHARACTER  YNAG*1 
1  TYPE  V  • 

TYPE  *, 'Use  Nells  Algorithm  (  Y  or  N  } 1 
ACCEPT  10, YNA6 
10  FORMAT  (A1) 

IFIYNAG.B1.  'Y')  THEN 

JNA6=1 

TYPE  '  ' 

TYPE  *, 'Input  value  for  standard  dsvlstlon  tsst  (2)’ 


i 

i 

I 


ACCEPT  ,  ANAG 

PRINT  *, 'Nells  Algorl tha  used' 

PRINT  *,ANA6 

ELSE  IFIYNAG.BQ.  * H 1 )  THEN 

JNAG=0 

ELSE 

GOTO  1 

END  IF 

RETURN  1 
BID 

1 1 1 1 1 1 1 1 1 1  III  III  1 1 1  III  1 1 1 1 1 1 1  111  I  III  I  III  1 1 1 1 1 1 1 1 1 1 1 1 1 1 !  1 1 1 1 1 1 1 1  END 


c 

C  This  SUBROUTINE  READS  A  FILE 

C 

SUBROUTINE  TRT (INFILE, AM, FHIFHIN,FINCISF} 

INTEGER*2  LINE2(24) 

INTE6ER*4  10(12] 

CHARACTER  INFILE*12 
REAL *4  AMtBDI  }  ,ffl(  801  ] 

INCLUDE  1 SYSILIB  RAR  Y  :FORIOSDEF 1 

8106  OPEN (UNIT=B, NAME-INFILE, TYPE- 'OLD' ,  READONLY,  I0STAT=IERR,ERR=81 00) 

READ (6,30)  (ID (I ) ,  1=1 ,12)  ,LINE2,NP,  FMIN,FINC,SF 
30  FORMAT (12A4,24A2,4A4) 

READ ( 6,40 )  (AMU ) ,  1=1  ,NP) ,  (PH (I ) ,  1=1 , NP) 

40  FORMAT  (128A4) 

60  TO  331 

8100  IF  (IERR.  S3.  R)R$I0S_FILN0TF0U  JTHEN 
TYPE  1112, INFILE 

1112  FORMAT! '  FILE  :  ',A14,'  MAS  NOT  FOUND',//, 

1‘  ENTER  FILENAME  AGAIN1) 

ELSE  IF  (IERR.ED.FDR<IOS_FILNAMGPE)THBJ 
TYPE  1113, INFILE 

1113  FORMAT ( 1  FILE  :  ',A14,'  MAS  BAD,  ENTER  NBA  FILENAME' ) 

ELSE 

TYPE  *, 'UNRECOVERABLE  ERROR,  CODE=',IERR 

STOP 

ENDIF 

TYPE  *, '  INFUTFILB4AME ' 

ACCEPT  1114, INFILE 

1114  FORMAT  (A1 4) 

GO  TO  BIOS 

331  CLOSE  IUNIT=8,DISP='  SAVE’) 

RETURN 

END 

C 

C  THIS  SUBROUTINE  DECODES  PARAMETERS  READ 

C  FROM  THE  DATA  FILES,  (MICH  ARE  COOED  IN  ASCII  CODES 

C 

SUBROUTINE  DCDEINP.FMIN.FINC) 

COMMON  BUFF 
BYTE  BUFF (6656) 

INTEGER‘4  IMIN.IINC.NP 
C 

C  NO  OF  DATA  POINTS  IS  STORED  IN  THREE  CHARACTERS,  AND 

C  STARTING  FREQ  AND  FRBD  INC.  IN  5  CHARACTERS 

C 

CHAR  ACTS)  *3  CM. 

CHARACTER’S  CFF.CINC 

EQUIVALENCE  (BUFF(1243  ,CNL) ,  (BUFF (ll31 )  ,CFF) ,  (BUFFM40)  ,CINC) 

C 

C 

C  CONVERT  CHARACTERS  INTO  THEIR  NUMERICAL  EOUIVALBJTS 

C 

DECODE (3,1 00, CNL)NP 
100  FORMAT  (15) 

DECODE ( 5,1 00, CFF) I MIN 


DECODE  (5, 100,  CINOI  INC 
FMIN=FL0AT (IMIN) /1 000 . 
FINOFLOAT  ( I  INC )  /1 000 . 
RETURN 
BID 
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i 

I  Prograa  none  FILEBORT 

I  Thla  procaedura  aorta  through  a  dlractory 
I  and  coapllee  a  fHa  of  daalrad  filenames. 

I  Thla  flla  latar  becoaea  tha  eource  of  a 
1  controL  routine  in  CATLOG  to  enable  large  batchaa 
I  of  f1la8  to  ba  acalad  automatical ly . 

I 

ON  ERROR  THEN  GOTO  DONE 

ON  CONTROI _ Y  THEN  GOTO  DONE 

I 

INQUIRE  F_TYPE  "Input  file  type 

INQUIRE  D_OUT  "Input  output  dlractory  flLanaae  " 

I 

DIRECT0RY/VBISI0NS=VC0LUMNS=1- 

/  NO  DATE/ NOS  IZE/NOH  EADI NG- 
/NOTRAILING/OUTPUT*='D_OUT'  ‘F  TYPE' 

I 

■RITE  SYS  (OUTPUT  D_0UT 
WRITE  6 YB (OUTPUT  * 

I 

DI  RECTO  RY/VERSIONS=1/COLUMNS=1/NOH  EADI  NS  '  F_TYPE ' 

I 

DEFINE/USER_WDE  SYSIINPUT  SYS  (COMMAND 
RUN  PC:NAMEFILE 

IF  .NOT.  (STATUS  THEN  GOTO  DIR_ERR 
DONE: 

EXIT 

DIR_B»R: 

WRITE  SYS (OUTPUT  "Errors  'F(MES8A8El(8TATUSJ 

EXIT 

I 

iiiiii  ii  1 1  in  i  ii  1 1  in  i  ii  mi  1 1 1 1  i  1 1 1 1 1 1 1 1 1 1 1 1  i  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  mini 
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•  I  Comand  procaedure  :  LINKCAL61.COM 

•  I  Linking  routine  for  GAL61.FOR 

I  I 

•  LINK  CAL61,  SB  CL61,  FORT,  SUB  REMOVE,  RCL  IB/LIB  RARY,- 
PLOTV, FWNV, ’ PLOTLIB ' 


•  I  Coaaand  procaedure  :  LINKTAF.COM 

•  I  Linking  routine  for  TAFCAL.FOR 

$  I 

$  LINK  TAFCAL,TRT,PF:FORTt 'PLOTLIB 


•  I  Coainend  procaedure  :  LINKCAT.COM 

I  I  Linking  routine  for  CATLOG.TOR 

•  I 

•  LINK  CATLOG.ROFL 


372 


